#!/usr/bin/perl
use strict;
use warnings;

$_ = 'somename   1000  0.24  280  2 2576.9  2731.9  12.0  4195.3';
my $regex =   '(^[a-z]\w*)'
            . '\s+([\.\d]+)' x 8
            . '$';

my (@array) = /$regex/io;
print join "\n", @array;
__END__
somename
1000
0.24
280
2
2576.9
2731.9
12.0
4195.3