my($chars_nums) = $string =~ m{ ( [a-z]{2}\d{9} ) # capture 2 chars + 9 digits }ix;