sub _{print join ("\n",$_[$[],$_[$^W],$_[$^F],$_[$#_]);}$^W=1;&_('just
+','another','perl','hacker');
[download]

-OzzyOsbourne