sub AUTOLOAD{$_=chop($AUTOLOAD);0x59>ord&&print' ';print;shift}sub _{'main'}
($YAPH = <<YetAnotherPerlHacker) =~ s-(\w)(?!$)-$1\->-g and eval $YAPH
_YetAnotherPerlHacker
YetAnotherPerlHacker