> Here's my cut at a faster algorithm. I was actually able to stand watching > it run up to 500000, as opposed to the pattern-matching one. :) That's A LOT! :D <snip> > This has the advantage that it will stop and punt out of the loop as soon as <snip> How about: last if (/[024568]$/); -Sneex- :] ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org