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