use constant MIN => 4;
my $delta = MIN-1;
;;
my ($too_many_consec) =
  map  qr{ $_ }xms,
  join ' | ',
  map  { $_, scalar reverse $_ }
  map  { join '', $_ .. $_+$delta } 0 .. (9-$delta)
  ;
...