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

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

      return $s;
   }