Select Code to Download

print chg("ctag\n", qr/t(g)/);   # print "ctag"
"g" =~ /(c)/;
...
    eval "\$str =~ tr/a$1/$1a/" if $1;
    return $str;
}