Select Code to Download

perl -MString::Random::Regexp::regxstring -e 'print @{generate_random_
+strings(q{^\d{3}[-,.][A-V][a-z]{3}\d{2}})};'

use String::Random::Regexp::regxstring;
my $strings = generate_random_strings('^[a-c]{2}[-,.]\d{3}-[A-Z]{2}$',
+ 10);
print "@$strings\n"