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

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