#!/usr/bin/perl
use Text::CSV_XS;
use strict;
use warnings;

$| = 1;

my $c = Text::CSV_XS->new;

while (my $line = <>) {
    $c->parse($line);
    my @fields = $c->fields;
    if (1 < @fields) {
        $line = join("\t",@fields)."\n";
        $line =~ s/\\//g;
        print STDOUT $line;
    }

    else {
        print STDERR $line;
    }
}

##</code><code>##

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;