my $html = ' --stuff-- --more stuff-- --still more stuff--
--all the stuff I want, which might include div tags, too--
--yet more stuff-- '; use Web::Query qw(wq); say wq($html)->find('div.myBody')->html; #
--all the stuff I want, which might include div tags, too--
use HTML::Query 'Query'; say Query(text => $html)->query('div.myBody')->as_HTML; #
--all the stuff I want, which might include div tags, too--
use HTML::TreeBuilder qw(); say HTML::TreeBuilder->new_from_content($html)->look_down(_tag => 'div', class => 'myBody')->as_HTML(q{}); #
--all the stuff I want, which might include div tags, too--