use strict;
$\=$/;
$_='';
s//#?=>$":}\~>\\!;/;
$/ =~ s//s{;};$")!{$"\\:<_!;/e;
y{%*-.$'&(#-<}{@-~}s;
{
y(;-?)[\012r-{)!]s;
y/T-_/`-|/;
y/{-~/l-}/;
redo if s/!/Y##
use strict;
$\=$/;
$_='';
##
##
s//#?=>$":}\~>\\!;/;
##
##
$/ =~ s//s{;};$")!{$"\\:<_!;/e;
##
##
s/;/$")!{$"\\:<_!/;
##
##
substr($_,-1)= $". ')!{' . $" . '\:<_!';
##
##
substr($_,-1)= ' )!{ \:<_!';
##
##
$_ = "#?=> :}~>\! )!{ \:<_!"
##
##
y{%*-.$'&(#-<}{@-~}s;
##
##
y{%\052-\056$'&(\043-\074}{\100-\176}s;
##
##
y{\043-\074}{\112-\176}s;
##
##
y/#):##
y(;-?)[\012r-{)!]s;
##
##
tr/\073-\077/\012r-{)!/s;
##
##
tr/\074-\077/r-{)!/s;
##
##
tr/\074-\077/r-u/s;
or
tr(<=>?)(rstu);
##
##
y/T-Z[\\]^_/`a-z{|/;
y/{|}~/l-z{|}~/;
##
##
y/Y\\_/ehk/;
y/{}~/lno/;
##
##
s/!/Y;
##
##
#!/usr/bin/perl -lw
use strict;
$_='';
s//#?=> :}\~>\\!;/;
substr($_,-1)= ' )!{ \:<_!';
y/#):?)(rstu);
y/Y\\_/ehk/;
y/{}~/lno/;
print;