"YAAJAPH" =~ s/A(?=J)/AUTOLOAD/;

[Aristotle]

Sometimes the muse strikes. This just came out of the blue and sprang almost fully formed from my forehead.

*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray
+]/e;$1}
&Just->another->Perl->hacker;