Select Code to Download

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

$s = 'the quick brown fox jumps over the lazy dog'; 

...
b 2492720/s 332%   -- -11%
c 2791311/s 384%  12%   --
[0]{} Perl>

$s = 'the quick brown fox jumps over the lazy dog'; 
$x = 'lazy'; 
...
a  459542/s   -- -79% -80%
c 2184810/s 375%   --  -6%
b 2318112/s 404%   6%   --