Select Code to Download

   warn 'tab' if unescape("\\t")  eq "\t";
   warn 'nl'  if unescape("\\n")  eq "\n";
...

      return $s;
   }

   my %SLASHED = (
      t => "\t",
...

      return $s;
   }