#!/usr/local/bin/perl


my $sentence = lc(join "\n", <>);


# deal with the specifics first
$sentence =~ s/pea/p33/ig;
$sentence =~ s{(\W)us(\w)}{($2 eq 'e')?"$1y00Z":"$1y00$2"}eig;
$sentence =~ s{(s+)(\W)}{'Z' x length($1).$2}eig;
$sentence =~ s/(\W)fear/$1ph3ar/ig;

$sentence =~ s/er(\W)/0r$1/ig;
$sentence =~ s/ude/3wd/ig;
$sentence =~ s/ate/8/ig;

# now do everything else
$sentence =~ tr/atiesogxc/4713509X(/;

# finally randomly uc or lowercase stuff
$sentence =~ s{([^\dX])}{(rand()>0.7)?uc($1):$1}eg;
$sentence =~ s{([^0])(z)}{(rand()>0.7)?"$15":"$1$2"}ieg;

print $sentence,"\n";


exit 0;