$string =~ m/(?=.*abc)(?=.*xyz)/i; #### use Benchmark; my $string = 'x' x 100; timethese 1_000_000 => { unanchored => sub { $string =~ /(?=.*abc)(?=.*xyz)/i }, anchored => sub { $string =~ /^(?=.*abc)(?=.*xyz)/i }, };