#!/usr/local/bin/perl -i.bak
while (<>) 
{ 
s/","/\t/g;
s/""/\t/g;
s/"//g;
print 
}
