Quote

Aoccdrnig to a rscheearch at an Elingsh uinervtisy, it
deosn't mttaer in waht oredr the ltteers in a wrod
are, the olny iprmoetnt tihng is taht frist and lsat
ltteer is at the rghit pclae. The rset can be a toatl
mses and you can sitll raed it wouthit porbelm. Tihs
is bcuseae we do not raed ervey lteter by it slef but
the wrod as a wlohe. ceehiro.

1
2
3
4
5
6

use List::Util qw//;
while (<>) {
        s               {\b(\w)(\w*)(\w)\b}
                        {$1 . join ("", List::Util::shuffle (split //, $2)) . $3}eg;
        print;
}