Select Code to Download

s[/][\\/]g for $lhs, $rhs;
eval "s/$lhs/$rhs/";

$rhs =~ s["][\\"]g;
$rhs = q["$rhs"];
s/$lhs/eval $rhs/e;