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