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