while (/a/g) {
   ...
}

##</code><code>##

my $count = () = 'baa baa black sheep' =~ /a/g;

##</code><code>##

print( ( () = 'baa baa black sheep' =~ /a/g ) >= 3 ? 'more' : 'less' );