use strict;
$\=$/; 
$_='';
s//#?=>$":}\~>\\!;/;  
$/ =~ s//s{;};$")!{$"\\:<_!;/e;  
y{%*-.$'&(#-<}{@-~}s;

{
y(;-?)[\012r-{)!]s;
y/T-_/`-|/;
y/{-~/l-}/;
redo if s/!/Y</g
}
print

##</code><code>##

use strict; 
$\=$/;
$_='';

##</code><code>##

s//#?=>$":}\~>\\!;/;  

##</code><code>##

$/ =~ s//s{;};$")!{$"\\:<_!;/e;

##</code><code>##

s/;/$")!{$"\\:<_!/;

##</code><code>##

substr($_,-1)= $". ')!{' . $" . '\:<_!';

##</code><code>##

substr($_,-1)= ' )!{ \:<_!';

##</code><code>##

$_ = "#?=> :}~>\! )!{ \:<_!"

##</code><code>##

y{%*-.$'&(#-<}{@-~}s;

##</code><code>##

y{%\052-\056$'&(\043-\074}{\100-\176}s;

##</code><code>##

y{\043-\074}{\112-\176}s;

##</code><code>##

y/#):</JPac/;

##</code><code>##

y(;-?)[\012r-{)!]s;

##</code><code>##

tr/\073-\077/\012r-{)!/s;

##</code><code>##

tr/\074-\077/r-{)!/s;

##</code><code>##

tr/\074-\077/r-u/s;
or
tr(<=>?)(rstu);

##</code><code>##

y/T-Z[\\]^_/`a-z{|/;
y/{|}~/l-z{|}~/;

##</code><code>##

y/Y\\_/ehk/;
y/{}~/lno/;

##</code><code>##

s/!/Y</;

##</code><code>##

#!/usr/bin/perl -lw

use strict;

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