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

##</code><code>##

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