##do something with $p - 1 while $p = 1 + index( $haystack, $needle, $p );