#!/usr/bin/perl -i.bak

#print STDERR "\n\n\n\n\n************I SAID:\n$file\n\n\n\n\n\n";

use English;


undef $INPUT_RECORD_SEPARATOR;
$file = <>;

$file =~ s/(?<!\\)"(.+?(?<!\\))"/``\1''/g;
#$file =~ s/"(.+?)"/``\1''/g;



print $file;

