my $p = qr/\s+([\.\d]+)/;
(@array) = $_ =~ /(^[a-z]\w*)$p$p$p$p$p$p$p$p$/io;