Select Code to Download

#!/usr/bin/perl
use warnings;
...
Printing bad lines:
C31 6 3 2.4 1.5 2.6  : 1

/^([A-Z]\d\d)\s+(1?\d)\s+(\d?\d(?:\.1)?)\s+([0-3])\s+(?{@cts = $' =~ m
+#(\d?\d\.\d)#g})/