#!/usr/bin/perl
sub out(@){join"",@_}sub in($;){pop}$/=in out
*,="Just another Perl hacker";open IN,$0;$OUT
=in <IN>;$|=1 && $OUT=~/((OUT)?(.). IN.+)/is;
@_=out qw|R 5 V : C % & : @ P F < E ! % ( R 5
& : T ] F ; A ! " = S 5 G 2 8|; for $ward( in
reverse@_){push@for,$ward,in reverse}print in
unpack out($3), in out reverse in out reverse
in out reverse out @for,$ward, reverse; close
IN and kill 9,in $$ or eval in out in out $1;