On Jun 25, Clinton A. Pierce said: >sub comlen_or { > length((($_[0]^$_[1])=~m/^(\0+)/)[0]); >} This requires 5.6. sub comlen_japhy { (pop ^ pop) =~ /^\0*/ and $+[0]; } -- Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/ I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun. Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/ Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/ Acacia Fraternity, Rensselaer Chapter. Brother #734 ** Manning Publications, Co, is publishing my Perl Regex book ** ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe