my $string = 'Hello sailor';
my $regex = 'Hello (.*)';
# my $substitution = 'Goodbye \1';

$string =~ s/$regex/Goodbye $1/;
print "string is now <$string> \n";