Select Code to Download

use strict;

...
$value             =~ s/(?$flags)$pattern/$replacement/;

print "$value\n";

My New Test