Select Code to Download

C[CCNNNNNNNNNNN]
C= Char
N= Number

@list = $line =~ m{ ( [A-Z]{2}\d{11} ) }gx;

@list = $line =~ m{ ( [A-Z]{1}\[[A-Z]{2}\]\d{11} ) }gx;