>From fwp-l Mon Jun 25 18:32:15 2001 How about: sub comlen { int( ( index unpack("b*", pop^pop), 1 )/8 ); } No regex, no list context, as per instructions, Cheers! ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe