use List::MoreUtils qw( apply );
my @points = apply { s/\s+// } split(/\t/, $_);