use overload;use less*b=sub{$_[0]=~y~A-Z~Just Another Perl Hacker\n~;p
+rint@_},
overload::constant(integer=>sub{sprintf"%X",$_[0]});*a=sub{$_=28930254
+53;y}1C0
7}LUOET};$_};*{&a}=*=,*==sub{local($~)=$==~m}(.)$};"$~".&{++$~}};*Z=su
+b{};b&A;
[download]

japhy -- Perl and Regex Hacker