Suddenly, pmh@edison.ioppublishing.com uttered: > On Wed, 14 Mar 2001 16:50:59 +0000, Michael G Schwern wrote: > > (This requires some artistic license on the return value of kill...) > > > > # "Kill them all and let God sort them out" > > print sort God kill 9, @ARGV; > > > > # Bonus points if you can figure out this one. > > print grep { ref and ref !~ /^[A-Z]$/ } kill 9, @ARGV; > > Kill them all and... > the horses they rode in on? > forget the short ones? Kill all referees, except those with letters of referral? - Salve, shooting in the dark -- #!/usr/bin/perl sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print# Salve Joshua Nilsen getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':4@,$'.# <sjn@foo.no> '2!--"5-(50P%$PL,!0X354UC-PP%/0\`'."\n"));eval "&{'@_'}"; __END__ is near! :) ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe