perl drunken.pl I think it is funny that people still understand this sentence 
I tnihk it is fnnuy taht pploee slitl usnretadnd tihs scnetnee
##</code><code>##

use strict;
$| = 1;

for (@ARGV) {
    s/(.?)(.*)(.\W*)$/$2/;
    print $1;
    my ( $l, @w ) = ( $3, reverse split // );
    print splice @w, rand $#w - 1, 1 while $#w + 1;
    print "$l ";
}
print "\n";