my $field= 'content'; my $twig= new XML::Twig( twig_roots => { $field => 1 }, twig_print_outside_roots => 1, twig_handlers => { $field => \&field } ); $twig->parsefile( "ginormous.xml"); sub field { my( $twig, $field)= @_; $field->delete; }