Select Code to Download

use strict;

...
eval "\$value =~ s/$pattern/$replacement/$flags";

print "$value\n";

  My New \1 Text