my $count_foo = () = /foo/g;