[0]{} Perl> $s='the quick brown fox jumps of the lazy dog'; cmpthese -1,{a=>q[my($f)=$s=~m[(need)];], b=>q[my $f= $s=~ m[need] ? 'need' : undef; ] };;
       Rate    a    b
a 2902896/s   -- -12%
b 3289193/s  13%   --

[0]{} Perl> $s='the quick brown fox jumps need of the lazy dog'; cmpthese -1,{a=>q[my($f)=$s=~m[(need)];], b=>q[my $f= $s=~ m[need] ? 'need' : undef; ] };;
       Rate    a    b
a  517876/s   -- -83%
b 3000131/s 479%   --