$text =~ s/([A-Za-z]+)/ &RandomizeLetters($1) /eg;
sub RandomizeLetters {
  my $word = shift;
  my @letters = split(//, $word);
  # hier @letters irgendwie vermischen

  return (@letters);
} # RandomizeLetters