#csvtab.pl
#Perl script to convert quote-delimited CSV files
#to undelimited tab-separated files.
#Syntax:
#  perl csvtab.pl inputfile.txt > outputfile.txt

use strict;
use Text::ParseWords;

my @line;
while (<>) {
  @line = parse_line ",", 1, $_;
  map { s/^\"//; s/\"$// }  @line;
  print join "\t", @line ;
}