eam · March 31, 2016 22:38
diff --git a/japh.pl b/japh.pl
 @_=map{open$_{$_},q q>q,$_?$+:eval lc join$,,sort qw/_[$_] FI E A;\ D @_
 NED$/}$|..$=;$_="OYPY_H\030c",@==grep{vec($/,$,++,2**3^0)=$=^ord$_}/( .) # (. )
 /sixgoos,!!1;eval$/,! @=for@_{sort{$b<=>$a}%_};                          ##
 print "Hello world!";                                   use 5.008;   #       #
 warn "Just another Perl hacker,\n" if defined undef;                  #######
	@_=map{open$_{$_},q q>q,$_?$+:eval lc join$,,sort qw/_[$_] FI E A;\ D @_
	NED$/}$\|..$=;$_="OYPY_H\030c",@==grep{vec($/,$,++,2**3^0)=$=^ord$_}/( .) # (. )
	/sixgoos,!!1;eval$/,! @=for@_{sort{$b<=>$a}%_}; ##
	print "Hello world!"; use 5.008; # #
	warn "Just another Perl hacker,\n" if defined undef; #######