my @points = map { s/\s+//; $_ } split(/\t/, $_);

##</code><code>##

my @points = map { local $_ = $_; s/\s+//; $_ } split(/\t/, $_);

##</code><code>##

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