Remove leading and trailing quote, replace common escapes with their unescaped counterpart

to-json.pl

#!/usr/bin/perl
use warnings;

while(my $line = <STDIN>) {
   $line =~ s/\\t/\t/g;
   $line =~ s/\\n/\n/g;
   $line =~ s/^\"//g;
   $line =~ s/\"$//g;
   $line =~ s/\\\"/\"/g;
   print $line;
}