Someone said "csv"? A reply using Text::CSV_XS is obligatory!

use Text::CSV_XS qw{ csv };

csv( in       => *DATA,
     sep_char => ' ',
     eol      => "\n",
     on_in    => sub {
         $_[1][1] *= 1.1E3;
         $_[1] = [ map sprintf('%E', $_), @{ $_[1] } ]
     },
);
[download]