map { /^..(A|B)./ ? [ $_, $1 ] : () } @a

##</code><code>##

map { /^..(A|B)./ ? $1 : () } @a

##</code><code>##

map /^..(A|B)./, @a