Select Code to Download

$string =~ tr{/}{\};

$string = s{/}{\}g;