C[CCNNNNNNNNNNN]
C= Char
N= Number

##</code><code>##

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

##</code><code>##

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