$count++ while $teststring =~ /test/g;