Select Code to Download

my %mapping = ( # or whatever you like to display
  "\t" => '\t',
  "\n" => '\n',
...
  s/$pattern/$mapping{$1}/g;
  print "$_\n"; # you still want to start a new line
}