$a =~ m%<div\b[^>]*>((?:(?!</div>)(?!<div\b).)*)</div>%;
$a =~ m%<div\b[^>]*>((?:(?!<div\b).)*?)</div>%;