#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use HTML::TreeBuilder;
# HTML-Tree version 5.07, released 2017-08-31


my $tree = HTML::TreeBuilder->new;
$tree->parse(q~

<p>aaa</p>

<p>bbb</p>

<script>
$(document).ready(function(){
    console.log('111');
});
</script>


~);



my @p = $tree->look_down('_tag', 'p');

#die Dumper(\@p);

for my $el(@p){

    $el->replace_with(
        HTML::Element->new("p", class => "foobar")
    );
}


my $body = $tree->look_down('_tag', 'body');


die $body->as_HTML(undef, undef, {});