$s=';';*$s=sub{print@_};&;("Just ")&&&;("another ")&&&;("Perl ")&&&;("hacker,");