"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: $!"; while ( my $row = $csv->getline($io) ) { my @fields = @$row; next unless $fields[4]; $fields[4] =~ s/\s+//g; print $fields[4], "\n"; }