use Regexp::List qw( );
my $pat = Regexp::List->new()->list2re( 1..99 );