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

##</code><code>##

@matches = $teststring =~ /(test)/g;

##</code><code>##

$count += @matches;