DB<31> push @N, /^..(A|B)./ for qw/xxBxx yyAyy zzNzz/

  DB<32> x @N
0  'B'
1  'A'
  DB<33>