Win, there is no 'shuffle' function in core perl, you can make use of List::Util to accomplish your job.

use List::Util shuffle;
my $random_string = join '', shuffle split //, "stringtorandomise36let
+terslong123456";
print "$random_string";

output:
le663snetnlrodt1mer23trsogiions4atg5
[download]