#!/usr/bin/perl
{!s!!!ex=>{push
@_=>$1},seek(DATA
=>$#_+42=>${_}
)}{while(<DATA>)
{y!#!!d,s$\n$chr
(32)#eval "goto rr"
#!!print reverse
#!!reverse qw(
#Just
#another
#Perl
#hacker
#!!)
$ex
=>y^$^\n^=>
print
if!!m!^\#
!mxs&&
!m!^#\!!ims
}}goto qq,,,
goto rr,,,
qq:
goto qq;
rr:
__END__