use XML::Twig;
my $xml = XML::Twig->new();
$xml->parsefile('foo.xml');
foreach my $el ($xml->get_xpath('dummy_record'))
{
  $el->cut();
}
$xml->print(\*STDOUT);