#! /usr/bin/perl -w

use strict;

  $a='Just' ;                           $b='another';$a=~
 y{stuJ}{ciec}                      ;undef $_;$\="hacker,
 ";my$magritte                    = pack  q\C4
 \, split /,/,                qq;  80, 101
 , 114, 108; ;             $a.=q;_;;$.=
 $\;$\=~s!.*$!         $.=~y`ahr,eck
 `nupha j\n`,$.       !sme;$b=~y/t
 ronahe/sPxte'n     /;$_=$a.$b;
 $_.=join '', map {chr($_/2)}
 map{ord} split'',$magritte
 ^(join '', map{chr}qw{238
  133 176 138});$\=' '.$\
   ;s; ;;g;y;_; ;;chomp
        $\;print;