On Fri, Jul 16, 1999 at 05:59:14PM -0400, Bill Jones wrote: > while (++$len <= length) { > print "\nInside of $_, I found ", substr($_, $len, 1) > if (index(/a.*b.*c.*d.*e/, $_) > -1); > } Woops, we just slipped over from "PUZZLE" to "What's wrong with this code?" ;) Ronald ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe