@divs = $content =~ m!<\s*div[^>]*>(.+?)<\s*/div!sig;