Use intermediate list context:

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