use Regexp::List qw( );

my $rxValid = do {
   my $re_builder = Regexp::List->new();
   my $x_range = $re_builder->list2re(0..22);
   my $y_range = $re_builder->list2re(35..50);
   qr/ ^ X $x_range Y $y_range $/x;
};