in reply to Re: How do I assign & substitute in one statement?
in thread How do I assign & substitute in one statement?

This is not unlike the earlier for solution. Using for instead of map avoids the clunky returning of $_: 
$sBegin = 'hello world';
s/hello/goodbye/g for ($sEnd = $sBegin);
print $sEnd;

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom