for my $d ($root->findnodes($xpath))
{
    for my $dd ($d->findnodes('something'))
    {
        $dd->delete;
    }
    print $d->as_trimmed_text,qq(\n) if (defined($d->as_text));
}