vijay sarathi

#!/usr/bin/env perl

# http://theunixshell.blogspot.com/2013/06/removal-of-unnecessary-white-spaces.html

use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new({
    allow_whitespace => 1,
    binary => 1,
    eol => $/,
}) or die Text::CSV->error_diag;

$csv->print(*STDOUT, $_) for @{$csv->getline_all(*STDIN)};