Как я могу генерировать все возможные перестановки от регулярного выражения Perl?

Я знаю, что можно генерировать все перестановки из списка, с помощью шарика или Алгоритма:: Переставьте, например - но как Вы генерируете все возможные перестановки от регулярного выражения?

Я хочу сделать как:

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