Select Code to Download

$text = 'h\te\nl\l\t\(o\)\n';
print "$text\n";
%token = ('\n'=>"\n", '\t'=>"\t" , '\('=>'(', '\)'=>')');
$text =~ s/(\\.)/$token{$1}||$1/ges;
print "$text\n";