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