use Regexp::List qw( );

my @ok;
for my $i (1..8) {
   for my $j ($i+1..9) {
      push @ok, "$i$j";
   }
}

my $re = Regexp::List->new()->list2re(@ok);
my @x = /(?=($re))/g;