s='the quick brown fox jumps over the lazy dog'; 
cmpthese -1,{
    a => q[ if( $s =~ m[(lazy)] ){ $found=$1 } ],
    b => q[ $found = 'lazy' if 1+index( $s, 'lazy' ); ],
};;
       Rate    a    b
a  585631/s   -- -77%
b 2535746/s 333%   --