Select Code to Download

"My Company","Gavin","Henry ","ghenry@ghenry.co.uk"," 1.00"

    my $csv = Text::CSV_XS->new( { binary => 1, eol => $/ } );
    open my $io, '<', $file or die "$file: $!";
...
        $fields[4] =~ s/\s+//g;
        print $fields[4], "\n";
    }