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

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

      return $s;
   }