#!/usr/bin/perl

use strict;

my %words = (
   'you'      => 'joo',
   'yay'      => 'woot',
   'rock'     => 'roxor',
   'rocked'   => 'roxored',
   'defeated' => 'roxored',
   'beat'     => 'roxored',
   'hacked'   => 'haxored',
   '!'        => '!!!',
   'hacker'   => 'haxor',
   'sucked'   => 'suxored',
   'suck'     => 'suxor',
   'elite'    => 'leet',
   'dude'     => 'dood'
);

print "Enter your string and press Return\nEnter EXIT to end the program\n";

while(<STDIN>) {
   chomp;
   last if $_ eq 'EXIT';
   foreach my $word(keys %words) {
      s/$word/$words{$word}/gi;
   }
   tr/OoIiLlEeAaSsTt/00111133445577/;
   s/s\b/z/g;
   print $_, "\n";
}