Select Code to Download

C31 6  3 2.4 1.5 2.6  
C32 2  7 3 1.0  
...
T11 2  1 0 6.0 1.1 2.2
L06 1  1 0 1.0 3.3
L06 1  4 0 1.1 1.8

($t, $p, $s, $d) = (/^([A-Z]\d\d) +(1?\d) +(\d?\d(?:\.1)?) +([0-3]) /)
+ 
  or ($bad{$line++} = $_) && next;
@cts = ($' =~ /(\d?\d\.\d)/g);

@allFields = (/patt1 patt2 patt3 patt19+/);