DB<1> $_=q(somename   1000  0.24  280  2 2576.9  2731.9  12.0  4195.3)
 
  DB<2> $,=" | "
 
  DB<3> print /(^[a-z]\w*)(\s+[.\d]+)((?2))((?2))((?2))((?2))((?2))((?2))((?2))/
somename |    1000 |   0.24 |   280 |   2 |  2576.9 |   2731.9 |   12.0 |   4195.3