$ perl -le '
> $text = q{this text};
> print do{ $text =~ s{this}{that}; $text };'
that text
$

##</code><code>##

$ perl -le '
> $text = q{this text};
> print map { s{this}{that}; $_ } $text;'
that text
$