Select Code to Download

-,--,--,--,1.280000e+2,9.930000e+0
--,--,--,--,1.920000e+2,9.950000e+0
...
--,2.400000e+1,6.680000e+0,--,--,--
--,2.400000e+1,6.640000e+0,--,--,--
--,3.200000e+1,6.720000e+0,--,--,--

2.000000e+0,4.370000e+0,2.000000e+0,6.500000e+0
4.000000e+0,5.300000e+0,4.000000e+0,6.650000e+0
...
--,--,8.000000e+0,6.600000e+0
--,--,1.600000e+1,6.570000e+0
--,--,2.400000e+1,6.680000e+0

#!/usr/bin/perl -w
my @L = ();
...
    print join ',', @{ $L->[$_] }[0,0,1,2] for keys %L;

}