my $text = "this text";
$text =~ /this/that;
print $text;

##</code><code>##

my $text = "this text";
print $text =~ /this/that/;