His code is a little verbose. Perl is all about modules, and avoiding
them makes your life hard. Here is an equivalent to what you posted
that I wrote in about two minutes:
#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV;
my $parser = Text::CSV->new({
allow_whitespace => 1,
escape_char => '\\',
allow_loose_quotes => 1,
});
while(my $line = <>){
$parser->parse($line) or die "Parse error: ". $parser->error_diag;
my @row = $parser->fields;
print $line;
print "\t[$_]\n" for @row;
}