On Mar 14, Michael G Schwern said: >(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, if the object. -- Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/ Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/ Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe