Select Code to Download

my $pattern = qr/$test/;
my $pattern1 = qr/$test1/;
# ...
        $new =~ s/$pattern/$pattern1/;

>perl -e '$x="abc"; $p=qr/b/; $r=qr/X/; $x=~s/$p/$r/; print $x'
a(?^:X)c
>