$_ = '=]=>%-{<-|}<&|`{';
y/ -\/:-@[-`{-}/`-{~" -/;

##</code><code>##

 -/:-@[-`   --->    `-{~
      {-}   --->    " -

##</code><code>##

 -/       --->    `-o
:-@       --->    p-v
[-`       --->    w-{~
 {        --->    "
 |        --->    space
 }        --->    -

##</code><code>##

$_ = '=]=>%-{<-|}<&|`{';
tr/!-\//a-o/;
 tr/:-@/p-v/;
 tr/[-^/w-z/;
 tr/`/~/;
 tr/{/"/;
 tr/|/ /;
 tr/}/-/;
print;