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

foreach $elem (@instances)
   {
    print $elem . ",";
   }