And while I'm still here, I'll post yet another japh. The concept behind this one is to be (explicit-)print()-less. So it somehow doesn't fit typical japh form factor standards:
#!/usr/bin/perl -lp BEGIN{*ARGV=do{open $_,q,<,,\$/;$_}}s z^z seek DATA,11,$[;($, =ucfirst<DATA>)=~s x .*x q^~ZEX69l^^q,^2$;][@,xe.$, zex,s e1e q 1~BEER XX1^q~4761rA67thb ~eex ,s aba m,P..,,substr$&,$.,age __END__
Please note that I don't like this one much any more, either.

Replies are listed 'Best First'.
Re: Yet another japh
by jdalbec (Deacon) on Dec 04, 2004 at 04:10 UTC
    #!/usr/bin/perl -lp BEGIN{*ARGV=do{open $_,q,<,,\$/;$_}} =pod File handles can be opened to "in memory" files held in Perl scalars via: open($fh, '>', \$variable) || .. =cut s z^z seek DATA,11,$[;($, =ucfirst<DATA>)=~s x .*x q^~ZEX69l^^q,^2$;][@,xe.$, zex; # # ! / u s r / b i n / p e r l - l p \n # 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 #print; #print $,; #print q^~ZEX69l^^q,^2$;][@,; s e1e q 1~BEER XX1^q~4761rA67thb ~eex ; #print; #print q 1~BEER XX1^q~4761rA67thb ~; s aba m,P..,,substr$&,$.,age __END__
    Lots of s///e in this one...

    Exercise for the reader: where did the 1 come from?

      "Lots of s///e in this one..."

      Indeed lots of stringwise C<^>'s which thinking of it now are after all a cheap trick to gain some obfuscation...