Just throw more scientists at the problem.
N = a × 10^b
where 1/sqrt(10) ≤ a < sqrt(10) . Then, b represents the order of magnitude of the number. $ perl --help
...
-F/pattern/ split() pattern for -a switch (//'s are optional)
-l[octal] enable line ending processing, specifies line terminator
-a autosplit mode with -n or -p (splits $_ into @F)
-n assume "while (<>) { ... }" loop around program
-p assume loop like -n but print line also, like sed
-e program one line of program (several -e's allowed, omit programfile)
Example. List file name and size: ls -l | perl -ae 'print "@F[8..$#F], $F[4]"'