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