$count=scalar(my @dummy = $string=~m/$regex/g);