Select Code to Download

package MatchRegex;

...
  else { $len = $_[0] + rand($_[1] + 1 - $_[0]) }
  return map $alpha[rand @alpha], 1 .. $len;
}

use MatchRegex qw( digits UCalpha );

...
  digits(2),     # \d{2}
  digits(4),     # \d{4}
);