substitution 1

[nychris]

This is an easy question, but I just can't seem to find the answer. How can I do this substitution in a single line?

$str = 'alpha.txt';
$new = $str;
$new =~ s/txt$/pol/;

I tried the following, but all it does is return the number of substitutions that were made...

$new = ($str =~ s/txt$/pol/;

Thanks

 

[MillerH]

($new = $str = 'alpha.txt') =~ s/txt$/pol/;

- Miller

 

[nychris]

thanks MillerH