#!/usr/bin/perl -w
# tristan+perl@ethereal.net 19jan2006
#
# This is dead simple.
# It was adequate for my needs, but not necessarily yours!

use strict;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new({binary => 1});

while (<>) {
  chop;
  $csv->parse($_) or die;
  print join("\t", $csv->fields), "\n";
}