while(<STDIN>){$_=lc($_);s/ou/oo/g;s/yo/jo/g;s/ck(s|\W)/xor$1/g;s/elite/leet/g;s/[\,\']//g;while(/[\?][\?\.\!]*/){my $ex=xp("Q","E");s/[\?][\?\.\!]*/$ex/;}while(/[\.\!]+/){my $ex=xp("E","1");s/[\.\!]+/$ex/;}s/Q/\?/g;s/E/\!/g;while(/s([\W])/){my $ex="z" x int(rand(6)+1);s/s([\W])/$ex$1/;}my $o;while (s/^(.)//s){my $c=$1;if(rand(1)>.5){$c=uc($c);}else{$c=lc($c);}if(rand(1)>.5){$c=~tr/iseto/15370/;}$o.=$c;}print $o;}sub xp{my ($a,$b)=@_;my $o=$a;my $len=int(rand(10)+5);for(my $x=0;$x<$len;$x++) {if(rand(1)>.4){$o.=$a;}else{$o.=$b;}}return $o;}