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