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

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

      return $s;
   }

##</code><code>##

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

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

      return $s;
   }

##</code><code>##

------------
:Wq
Not an editor command: Wq