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