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