Come to that, why bother with the comparison block at all :)

s!\B\w+\B!join'',sort$&=~/./g!eg

P:\test>junk
Down taht path leis madenss. On the oehtr hand, the raod to hell is pa
+evd with meilntg sabllnows.
Aghlotuh the Perl Saglon is Tehre's More Tahn One Way to Do It, I haei
+stte to make 10 ways to do sehimnotg.
And don't tell me tehre isn't one bit of dceeffinre beeetwn nlul and s
+acpe, bacesue taht's eacltxy how mcuh dceeffinre tehre is.
Raadnl said it wloud be tgouh to do in sed. He ddin't say he ddin't ua
+dennrstd sed. Raadnl uaddennrsts sed qitue well. Wchih is why he uess
+ Perl.
As uasul, I'm oaeinrsttvg the case to kcnok a few nenorus loose, but t
+he trtuh is uallsuy seehmorwe in the mddlue, uh, mddile.
Of corsue, I reersve the rghit to make whlloy siptud caeghns to Perl i
+f I think tehy imoprve the laaggnue.
[download]