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;};