I'm collecting Perl one-liners for inclusion in a project I'm
working on.

If you have written, or observed, an extremely cool line of Perl,
I'd appreciate you sending me:

  1) the line of Perl
  2) who wrote it
  3) where it first appeared, if known

By "extremely cool" I mean something on the order of a decent JAPH,
although I'm not collecting JAPHs.  It can be a line of Perl or a
Perl command line.  It's okay if it's oblique, "bent," or
hard to understand, but it should not be deliberately obfuscated.
It should be efficient.  It should be instructive in some way.
It does NOT have to be general-purpose.

Submit as many as you like.

Proper credit and thanks WILL be given.  More details on where
this is headed later.

(Apologies in advance for the anti-spam mailbot.  It won't bother
you if you have a Newsgroups: line in your email to me.)

        -joseph

1.  This is my "which" script which finds multiple files in the path
    and allows wildcarding...  (circa 1994)

    #!/usr/bin/perl -l012
    $"=',';($p=$ENV{PATH})=~tr/:/,/;map-d||-x&&print,glob"{$p}/{@ARGV}";

2.  This is the bent thing i invented for doing "min($a,$b)"  (circa aug 1996)