sub mangle { (@chars) = split '', shift; for($i=1;$i<$#chars-1;$i++){ next if(substr(join('',@chars), $i-1, 4) =~ / /); $buf=$chars[$i],$chars[$i]=$chars[$i+1],$chars[$i+1]=$buf if(rand(10)>5); } return join '', @chars; }