($_,$,,$#,$\)=map{$_.' '}qw(just another perl hacker);print $_,1;

Replies are listed 'Best First'.
Re: perlvar japh
by japhy (Canon) on May 20, 2003 at 04:50 UTC
    I've got a slight further obfuscation:
    ($_,$,,$#,$\)=map$_.$ ",qw)just another perl hacker);print$_,1

    _____________________________________________________
    Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Re: perlvar japh
by Anonymous Monk on May 19, 2003 at 19:09 UTC

    There are several answer to SOPW much more obfuscated than this one.

      It may not be particularly obfuscated, but it seems to be a clever use of some rarely-used Perl variables. ++AtnNn.

      -- Mike

      --
      just,my${.02}

        thats exactly what its supposed to be, originally i tried to do something with $#='%c' but that didnt work out and it became what it is now.