$_ = "Twinkle twinkle little star"; $n = m/twinkle/ig; print "Number of occurences = $n\n"; while(/twinkle/ig) { $count++; } print "Found $count times\n";