How to find multiple matches of same string in perl

This is one way:

$count += () = $teststring =~ /(test)/g;