$html =~ /(<body[^>]+>)/s;