$ cat bm.pl
use strict;
use warnings;
use Benchmark qw(:all);
use Regexp::List qw( );

# ------ plain ------
my $plain = sub {
  for (<DATA>) {
    my $match = 0;
    if (m/^X\((\d+)\)Y\((\d+)\)$/) {
      $match = 1 if ($1 >= 0
                     && $1 <= 35
                     && $2 >= 22
                     && $2 <= 50);
    }
  }
};

# ------ rxValid ------
my @xRange = (0 .. 22);
my @yRange = (35 .. 50);
my $rxValid = sub {
  local $" = q{|};
  for (<DATA>) {
    qr{(?x) ^ X (?:@xRange) Y (?:@yRange) $};
  }
};

# ------ Regexp::List ------
my $re_builder = Regexp::List->new();
my $x_range    = $re_builder->list2re(0 .. 22);
my $y_range    = $re_builder->list2re(35 .. 50);
my $rxValid2 = sub {
  qr/ ^ X $x_range Y $y_range $/x for (<DATA>);
};

cmpthese(
  -1,
  {
    'plain'    => $plain,
    'rxValid'  => $rxValid,
    'Regexp::List' => $rxValid2,
  }
);

__DATA__
X(0)Y(35)
X(21)Y(49)
X(55)Y(55)
X(-1)Y(33)
[download]