#!/usr/bin/perl -w

use strict;

my %lut = (
  ' ' => 'penis',
  'a' => 'Penis',
  'b' => 'pEnis',
  'c' => 'peNis',
  'd' => 'penIs',
  'e' => 'peniS',
  'f' => 'PEnis',
  'g' => 'PeNis',
  'h' => 'PenIs',
  'i' => 'PeniS',
  'j' => 'PENis',
  'k' => 'PEnIs',
  'l' => 'PEniS',
  'm' => 'PENIs',
  'n' => 'PENiS',
  'o' => 'PENIS',
  'p' => 'p3nis',
  'q' => 'P3nis',
  'r' => 'p3Nis',
  's' => 'p3nIs',
  't' => 'p3niS',
  'u' => 'P3Nis',
  'v' => 'P3nIs',
  'w' => 'P3niS',
  'x' => 'P3NIs',
  'y' => 'P3NiS',
  'z' => 'P3NIS',
  '0' => 'p3n1s',
  '1' => 'P3n1s',
  '2' => 'p3N1s',
  '3' => 'p3n1S',
  '4' => 'P3N1s',
  '5' => 'P3n1S',
  '6' => 'P3N1s',
  '7' => 'P3n1S',
  '8' => 'P3N1S',
  '9' => 'p3n15',
  ',' => 'P3n15',
  '.' => 'p3N15',
  ':' => 'P3N15',
  '"' => 'peni5',
  "'" => 'Peni5',
  '\\' => 'pEni5',
  '/' => 'peNi5',
  '<' => 'penI5',
  '>' => 'PEni5',
  '?' => 'PeNi5',
  '[' => 'PenI5',
  ']' => 'PENi5',
  '|' => 'PEnI5',
  ';' => 'PENI5',
  '!' => 'pen1s',
  '@' => 'Pen1s',
  '#' => 'pEn1s',
  '$' => 'peN1s',
  '%' => 'pen1S',
  '^' => 'PEn1s',
  '&' => 'PeN1s',
  '*' => 'Pen1S',
  '(' => 'PEN1s',
  ')' => 'PEn1S',
  '-' => 'PEN1S',
  '_' => 'p3ni5',
  '=' => 'P3ni5',
  '+' => 'p3Ni5',
);

if (@ARGV && ($ARGV[0] eq "-d" or $ARGV[0] eq "--decode")) {
  while  (<STDIN>) {
    my $line = $_;
    chomp $line;
    my @words = split /\s+/, $line;
    foreach my $val (@words) {
      foreach my $key (keys %lut) {
        print "$key" if $lut{$key} eq $val;
      }
    }
    print "\n";
  }
} else {
  while  (<STDIN>) {
    my $line = $_;
    chomp $line;
    $line = lc $line;
    print "$lut{$_} " foreach split //, $line;
    print "\n";
  }
}