Re: Counting matches.

[sh1tn]

Use intermediate list context:

print (($counter = () = /a/g) >= 3 ? 'more' : 'less');