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

##</code><code>##

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