Select Code to Download

my $input    = "good morning all";
my $pattern  = qr/good morning (\w+)/;
...
my $output = $input =~ s/$pattern/$replace/ree;

print $output;

hello all