sub perception() { my @result; my @words = split / /, shift @_; foreach my $word (@words) { if ( length $word < 5 ) { push @result, $word; next; } my @toRandomize = split //, $word; my $letters = ( ( scalar @toRandomize ) - 1 ); $letters-- if $word =~ /\W$/; for ( my $i = 1 ; $i < $letters ; $i++ ) { my $rnd = ( 1 + ( int rand( $letters - 2 ) ) ); my $temp = $toRandomize[$i]; $toRandomize[$i] = $toRandomize[$rnd]; $toRandomize[$rnd] = $temp; } push @result, join( '', @toRandomize ); } return join ' ', @result; }