That said I have an acquaintance on one of the messengers who types similarly.  Not with this many letter-swapping, but to add to the problems, some spacing is in the wron gplace.  I'd say I'm pretty trained…

# Premssioin to use, cpoy, mdoify, drusbiitte, and slel this stafowre and its
# docneimuatton for any prsopue is hrbeey ganrted wuihott fee, prveodid taht
# the avobe cprgyioht noicte appaer in all coipes and that both taht
# cohgrypit noitce and tihs premssioin noitce aeppar in suppriotng
# dcoumetioantn. 

You are the wind beneath my wings.

#!/usr/bin/perl -p
# slcrambe.pl - by phyxeld. Inspired by http://www.jwz.org/hacks/scrmable.pl
$A=50; s{(?<=\W\w)(\w\w+)(?=\w\W)}{ # A=0: no shuffle; A=100: all backwards;
my $s; $s= rand(100) > $A ? qq|$s$_| : qq|$_$s| for (split //, $1); $s; }eg;

I can't seem to rdpruocee the plbroem.
I can't seem to rcoeuprde the plberom.
I can't seem to rpoucdere the perbolm.
I can't seem to rroedpcue the plrebom.
I can't seem to rcedorupe the peblorm.
I can't seem to rcodrepue the pbelrom.
I can't seem to rdpoceure the prelobm.
I can't seem to rrcouedpe the plorbem.
I can't seem to rdupcreoe the pbrloem.

And I hvae the same voesirn of Prel.

As words get lngeor, it bomeecs icsiarelgnny dfflciiut for one's mnatel fcliaetus to ctllpomeey irgnoe the agmmntciaaaarl oufotsacbin. Eeatvllnuy it bmceeos an eeexigncldy hoodunrres chagnelle (touhgh not an ugnlltcceioraay ilrcaanbtte one).

--- scrmable.orig.pl    2003-09-15 08:59:09.000000000 -0700
+++ scrmable.pl 2003-09-15 11:05:21.000000000 -0700
@@ -27,9 +27,7 @@
         my $Z = pop @w;
         print $A;
         if (defined ($Z)) {
-          my %tt;
-          foreach (@w) { $tt{$_} = rand; }
-          @w = sort { $tt{$a} <=> $tt{$b}; } @w;
+          @w = sort { rand() <=> rand() } @w;
           foreach (@w) {
             print $_;
           }

Doesn't change the functionality, just makes it a tad clearer and shorter.