in reply to Fun with chomp
Did you trie to read the file with Text::CSV_XS? It does handle tab separated data as exported by Excel fine when instructed to do so (no need for chomps):
use Text::CSV_XS; open my $fh, "<", "file.tsv"; my $csv = Text::CSV_XS->new ({ binary => 1, sep_char => "\t", auto_dia +g => 1 }); while (my $row = $csv->getline ($fh)) { # … } close $fh;
Enjoy, Have FUN! H.Merijn
In Section
Seekers of Perl Wisdom