Select Code to Download

#!/usr/bin/perl
use warnings;
...

$string =~ s/(?$flags:$pattern)/$replacement/;
print $string;  # aXc

eval "s/\$pattern/\$replacement/$flags"