On May 25, Jeff Pinyan said: >Indeed, I did solve it, using (??{ ... }). Once I realized I could use >that, it was trivial. > > 123456789_123456789_123456789_123456789_1234567 = 47 > ^.*(??{$&ne'^.*(??{'.substr($&,7,-4).'})\z'})\z ^.*(??{$&ne'^.*(??{'.substr($&,7,36).'})\z'})\z That fix is needed. Now it works. -- 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/ Acacia Fraternity, Rensselaer Chapter. Brother #734 ** I need a publisher for my book "Learning Perl's Regular Expressions" ** ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe