Select Code to Download

use strict;
my $string="AB123456789this_code_is_untested";
my $match=substr $string, 0, 11;

$string=~/^([a-zA-Z]{2}\d{9}).*/;
print $1;