Select Code to Download

my %escape;
@escape{qw(a l t n e r f)}= split /(.)/s, "\a\l\t\n\e\r\f";
s/\(.)/ $escape{$1} || $1 /ges;