[Perl-pad-users] Tublimng Lrettes

[Thilo P. <thi...@us...>]

Oyak, tihs is olny midlly fyunn, but since evnyroee is wnriitg lkie 
this tyoad, I susoppe I hvae to foollw suit. There is eevn a blosxom 
pilgun now to julbme words aulacitamolty and you can find the PerlPad 
snppiet taht preudcod this mail bewol.

Tliho

#! perl-pad -a
foreach my $word (@F){
	if ($word =~ /^(.)(.+)(.)/){
		my ($a, $b, $c ) = ($1, $2, $3);
		$b = reverse $b if rand() < 0.5;
		$b = "$1$3$2$4" if rand() < 0.8 and $b =~ /^(.)(.)(.+)(.)$/;
		$b = "$4$1$3$2" if rand() < 0.8 and $b =~ /^(.+)(.)(.)(.)$/;
		$word = "$a$b$c";
	}
	print "$word ";
}