在Perl的世界里，我们有不只是在CPAN模块 - >的正则表达式:: GENEX

In the Perl world we have a module on CPAN that does just that -> Regexp::Genex