regex - mehrmaliges vorkommen

[Siechfred]

Willst du sowas?

use Algorithm::Permute;  
my @array = qw(A B C D E F G H);  
my $p_iterator = Algorithm::Permute->new ( \@array );  
while (my @perm = $p_iterator->next) {  
  print "next permutation: (@perm)\n";  
}

Siehe How do I permute N elements of a list?

Siechfred