use strict;
my $string="this_PM123456789_code_is_untested";
$string=~/([a-zA-Z]{2}\d{9})/;
print $1;