#!/usr/bin/perl

use XML::Twig;

  my $twig=XML::Twig->new(twig_handlers => {
        'i:pgf' => sub {
            if ($_->{'att'}->{'id'} eq 'adobe_illustrator_pgf'){
                $_->delete;
            }
        },
        'i:pgfRef' => sub {
            $_->delete;
        },
        'x:xmpmeta' => sub {
            $_->delete;
        },
        
    }
  
  );    # create the twig
  $twig->parsefile('-');        # build it
  $twig->print;                 # output the twig

