#!/usr/bin/perl
use warnings;
use strict;
use HTML::TreeBuilder;
my $t = HTML::TreeBuilder->new_from_file(*DATA)
or die qq{cant build tree: $!\n};
my $anchor = $t->look_down(
_tag => q{a},
class => q{main-button},
);
$anchor->replace_with(
[
q{div}, {class => qq{main-button-wrapper}},
$anchor,
],
);
print $t->as_HTML(undef, q{ });
__DATA__
search and replace
Attach
####
search and replace