Select Code to Download

my $compd_pattern = eval "qr($pattern)" or die $@;

my $compd_pattern = qr($pattern);

my $pat  = ...;
my $repl = ...;
...
} else {
    s/$re/$repl/;
}