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