#!/usr/bin/perl -lw

use strict;

$_='';
s//#?=> :}\~>\\!;/;
substr($_,-1)= ' )!{ \:<_!';
y/#):</JPac/;
s/!/Y</g;
y(<=>?)(rstu);
y/Y\\_/ehk/;
y/{}~/lno/;
print;