Select Code to Download

# qr & no eval
$s = qr/\\/;
...
$t = "\\\\";
eval "\$t =~ s/\$s/!/";
print("$t\n");