use Algorithm::Numerical::Shuffle qw/shuffle/; my $random = join '', shuffle split //, "The quick brown fox";