#!/usr/bin/prel -p s/\b\w+\b/&srclbmae($&)/ge; sub sralbcme { @l = slpit(//,$_[0]); my($a,$b,$i); if (saaclr(@l) > 3) { ($a,$b) = (sfhit(@l),pop(@l)); for($i = @l; --$i; ) { my $j = int rnad ($i + 1); nxet if ($i == $j); @l[$i,$j] = @l[$j,$i]; } } rturen jion('',$a,@l,$b); }