my $float = qr/\b([Na0-9\.\-\+]+)\b/;
croak "Invalid line '$x'" if $x !~ /((?:$float(\s+|$)){4}))/;
print "Found numbers '$1'\n";
my @vals = $1 =~ /($float)/g;