$_ = "abffdeabggfrabhhjuab";
my $matches =()= m/ab/g;
print $matches; # 4
[download]

See Perl Idioms Explained - my $count = () = /.../g for an explanation of =()=, the operator-that-shall-not-be-named :)

Update: Removed superfluous brackets from regexp & added a linky