in reply to Splitting on tabs then removing extra white space with map

#!/usr/bin/perl

use strict;

my @array;
while (my $line = <DATA>) {
    chomp $line;
    my @points = map{ s/\s+// } split /\t/, $line;
    push @array, \@points;
}

[download]

In Section Seekers of Perl Wisdom