$line =~ /,?([A-Z]{3}\d{2}[A-Z]),/;