use strict;
             s//<>5:@/;y/'-|/[-|/;
           $;='*534';$;=~y/ -|/`-|/;
          $:='!./4(%2';$:=~y/ -|/`-|/;
         $x='0%2,' ; $x=~y/ -|/`-|/;$y=
        '(!#+%2';$y=~y/ -|/`-|/;s//"$_ '
        $;      $:      $x     $y'"/ee;