use strict;
use warnings;
use Benchmark
qw(cmpthese
);
my $str = "Javascript is a client language and PHP is a server language";
cmpthese(-1, {
'Combined' => sub { $str =~ /(?=.*Javascript).*PHP/i; },
'Single' => sub { ($str =~ /Javascript/i) && ($str =~ /PHP/i) }
});
dXNlIHN0cmljdDsKdXNlIHdhcm5pbmdzOwp1c2UgQmVuY2htYXJrIHF3KGNtcHRoZXNlKTsKCm15ICRzdHIgPSAiSmF2YXNjcmlwdCBpcyBhIGNsaWVudCBsYW5ndWFnZSBhbmQgUEhQIGlzIGEgc2VydmVyIGxhbmd1YWdlIjsKCmNtcHRoZXNlKC0xLCB7CiAgICAJJ0NvbWJpbmVkJyA9PiBzdWIgeyAkc3RyID1+IC8oPz0uKkphdmFzY3JpcHQpLipQSFAvaTsgfSwKCQknU2luZ2xlJyA9PiBzdWIgeyAoJHN0ciA9fiAvSmF2YXNjcmlwdC9pKSAmJiAoJHN0ciA9fiAvUEhQL2kpIH0KCX0pOwoK