Untested, but should be pretty close to working:

XML::Twig->new( twig_handlers => { Fruit => sub { $_->cut unless( $col
+or{$_->att( 'name')}); } } )
         ->parsefile( "fruits.xml");
[download]

If memory is a problem, flush the twig at the end of the handler and after the parse.