in reply to regexp match count

my $count =()= ($str =~ /ban/g);

[download]
This is the famous =()= goatse "secret operator", nicely explained here (along with Perl's other "secret operators").

In Section Seekers of Perl Wisdom