Select Code to Download

#! perl
use strict;
...
    $i =~ s{(\d)(\d{2})}{$1.$2};
    print "$i\t";
}

19:22 >perl 1570_SoPW.pl
0.01    0.02    0.03    0.04    0.05    0.06    0.07    0.08    0.09  
+  0.10
...
7.81    7.82    7.83    7.84    7.85    7.86    7.87    7.88    7.89  
+  7.90
7.91    7.92    7.93    7.94    7.95    7.96    7.97    7.98    7.99
19:22 >