@_=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;                  #######