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