#!/usr/bin/perl -w 
 
use strict; $\=$/;$_=q&&;s()/#?=>$":}\~>\\!;/;$/=~s~
~s{;};$")!{$"\\:<_!;~e;y{%*-.$'&(#-<}$@-~$s;{y(;-?)=
r-{)!=s;y$T-_$`-|$;y}{-~}l-\}};s{!}$Y<$g&&redo}print