#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw( cmpthese );

my $string1 = qr/tr/;
my $string2 = qr/e/;

my @data = do {
   open(my $fh, '<', $0) or die;
   <$fh>
};

cmpthese (-3, {
   grep_and => sub {
      my @r = grep /$string1/ && /$string2/, @data;
      return @r;
   },

   double_grep => sub {
      my @r = grep /$string1/, grep /$string2/, @data;
      return @r;
   },

   lookahead => sub {
      my @r = grep /^(?=.*$string1)(?=.*$string2)/, @data;
      return @r;
   }
});

##</code><code>##

               Rate   lookahead double_grep    grep_and
lookahead    8114/s          --        -52%        -62%
double_grep 16986/s        109%          --        -21%
grep_and    21483/s        165%         26%          --