my $sub = $elt->text();
$sub =~ s/AAA/ZZZ/g;
$elt->set_text($sub);