perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'

##</code><code>##

#! perl
$_=q|
      Just
      Another
      Perl
      Hacker
|;
open(FH,$0);
$/='';($__=<FH>)=~s/\s
#//xg;$__=~s/\#
#/ /xg; $__=substr
($__, 189, length$__);
eval $__ and exit 0;
$o=$_; $__=q|
sub _{map{print
chr,chr(32)x5,
chr}(@_,10)}map{
_$_
}qw|;*what = sub
{ print "@_\n"; };
@_ = /(\S+)/g;$_ =
(join "",@_) .  "("
.(join" ",(map {ord
substr($_,0,1)} @_))
. ")";@_ = ($o =~
/(\S).*\b/g);&what;
s/(Just)(Another)
(Perl)(Hacker)(.*)
/$__$5/x;eval;&what;