@b=split//,"Just another Perl hacker.";$c=$/x25;{@m=map{int rand(2)*
0.7}0..$#b;warn$c,(map{$m[$_]?$b[$_]:" "}0..$#b),$/,(map{!$m[$_]?$b[
$_]:" "}0..$#b),$/;select$x,$x,$x,.15;redo}