in reply to non-greedy incremental regular expression?

TIMTOWTDI

while ($s =~ /<blah>((?:(?!<\/blah>).)*)<\/blah>/)
 {       print $1, $/;
 }

[download]

Prasad

In Section Seekers of Perl Wisdom