use strict;
use warnings;

my $w = q{};
my $x = q{};
my $y = q{};
my $z = q{};

cmpOr();

$x = q{abc};
cmpOr();

$z = q{abcdefghij};
cmpOr();

$z = q{abcdefgh};
cmpOr();

$y = q{abcdefgh};
cmpOr();

$z = q{abcdefghij};
cmpOr();

sub cmpOr
{
    print
       qq{Comparing OR methods with:-\n},
       qq{     \$w is ->$w<-\n},
       qq{     \$x is ->$x<-\n},
       qq{     \$y is ->$y<-\n},
       qq{     \$z is ->$z<-\n};

    if ($w =~ /abcdefgh/ ||
        $x =~ /abcdefgh/ ||
        $y =~ /abcdefgh/ ||
        $z =~ /abcdefgh/)
    {
        print qq{  orig: true\n};
    }
    else
    {
        print qq{  orig: false\n};
    }

    if (q{abcdefgh} =~ /^(?:$w|$x|$y|$z)$/)
    {
        print qq{johngg: true\n};
    }
    else
    {
        print qq{johngg: false\n};
    }

    print qq{\n};
}