DB<34> @a = qw/xxBxx yyAyy zzNzz/

  DB<35> @N = map {/^..(A|B)./} @a

  DB<36> x @N
0  'B'
1  'A'
  DB<37>