site[name[string() =~ /name2/]]


##</code><code>##

my %handlers = ( 'site' => sub {
                     my ($twig, $cnt) = @_;
                     $cnt->delete if grep $_->text =~ /name2/,
                                     $cnt->children('name');
               } );


##</code><code>##

delete /sites/site[xsh:match(name,"name2")] ;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,