my $input    = "good morning all";
my $pattern  = qr/good morning (\w+)/;
my $replace  = '"hello $1"';

my $output = $input =~ s/$pattern/$replace/ree;

print $output;

##</code><code>##

hello all