>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