use strict;
use warnings;

use XML::LibXML qw( );

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file($ARGV[0]);
my $root   = $doc->documentElement();

for my $node ($root->findnodes('//image[@scope="local"]')) {
   $node->removeAttribute('scope');
}

binmode STDOUT;
print $doc->toString();