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