Select Code to Download

my $myVar='old yeller';
my $b = 'cat $1 dog $2 mouse $myVar';
...

# Use a substitution to replace the matched parts with $b
s/(hello).+(wally).+/$b/;

s/(hello).+(wally).+/sub { $b =~ s/\$\d+/$$1/g; }/;