use Mojo::DOM;
print Mojo::DOM->new->parse($string)->at('.myBody')
[download]

Works pretty well with crappy HTML too.

Updated: changed from body to .myBody, thanks to Corion++