use HTML::TreeBuilder; sub get_contents { HTML::TreeBuilder ->new_from_file($_[0]) ->find_by_tag_name('body') ->as_HTML }