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