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