Select Code to Download

my $string = "Hello sailor";

...
$string =~ s/$regex/Goodbye \1/;

print "string is now $string \n";