$str = "stuff stuff stuff"; while($str =~ m/(stuff)/g) { print "Got one!\n"; }