use strict ;
use warnings ;

my $string = "This is a not so random string" ;
my $randomized ;

{
  my @chars  = $string =~ /./g ;
  my %randindex ;

  for (my $i = 0 ; $i <= $#chars ; $i++) {
    $randindex{rand()} = $i ;
  }

  $randomized = join "",map $chars[$randindex{$_}], sort keys %randindex ;
}

print "$randomized\n" ;