jelly fish anyone?
see download code below for proper formatting
sub z{$i = pop;for($|=1;&i;1){
c:x:k: n:e:r:}
sub i{ foreach (
split( m!!, "just another perl hacker\n")){
unshift @I,$_ if ###############################
+####
!! !!not $_ eq undef
}}sub _ {$H_{ 'n'}=$int #########################
+########################
=+0;; return $H_{'n'};
sub __{ $_=~ m~(??{sub
s{pop}; &s($_ );})~;return#########################
+##########
(($&, 'just ','another',
'perl', 'hack er'));}}}BEGIN ####################
+######################
{&z(q~c~ );my@ g,%H_;$H_{'n'}=0;@m=__($_)and
unshift @g,$m [(&_&&&_&&$#_)] #################
+#########
foreach @I;map
{print unless
$_=~m/(\x0A|\x0D)/;}@g;};