DB<24> say 'aa' =~ /aa(?!a)b{0,2}/; say "<$&>"
1
<aa>