Select Code to Download

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

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