Select Code to Download

use Regexp::Common;

...

print "$orig\n";
print "$str\n";

foo bar foo bar foo qux foo qux foo
123 bar foo bar foo qux foo qux 123