sub unescape
   {
      my($s)=@_;

      $s =~ s/(\\[^\d])/"\"$1\""/gee;  #"\t", "\n", etc.
      $s =~ s/(\\0\d+)/"\"$1\""/gee;   #"\07", etc.

      return $s;
   }
[download]

That is: implicitly evoking an eval with a second /e modifier. Also, you could really do both regexes in one regex (and, fyi: [^\d] is also called, more simply, \D):

   sub unescape
   {
      my($s)=@_;

      $s =~ s/\\(0\d+|\D)/"\"\\$1\""/gee;

      return $s;
   }
[download]

------------
:Wq
Not an editor command: Wq
[download]