my $count = () = /\bperlmonk\b/g;