$:=$,=$"=join$,,reverse map{chr hex}unpack"(".
"A4)*",pack"(A)*",unpack"(xAXXAx)*","10f700e".
"60037207800022005005700f62078205610dd209700".
"02004610dd209710ea000220562005204520e910dd2".
"097";print/m$///$///m/$m/?s:$..$:$...::$:.$/;

A Perl program  which  prints  "Just Another Perl Hacker"
using extremely obfuscated methods,  typically ones based
on obscure behaviours of sometimes rarely-used functions,
in the spirit of the Obfuscated C Contest.