正则表达式 – 如何从Perl正则表达式生成所有可能的排列？

我知道您可以使用 glob或 Algorithm::Permute从列表中生成所有排列 – 但是如何从正则表达式生成所有可能的排列？

我想这样做：

@perms = permute( "/\s[A-Z][0-9][0-9]/" );
sub permute( $regex ) {
    # code - put all permutations of above regex in a list
    return @list;
}

请参阅 Higher Order Perl中的 Section 6.5 (PDF).考虑购买印刷书：这是一件艺术品.

CPAN还有Regexp::Genex.