use XML::Twig;

my $twig=XML::Twig->new(   
    twig_handlers => 
      { '*[@class=~/gene/]'=>\&remove_style,
		
      },
    pretty_print => 'indented',                # output will be nicely formatted
    empty_tags   => 'html',                    # outputs <empty_tag />
);

$twig->parsefile( '../Web/svg/ddr_zoom.svg');
$twig->print;
	
sub remove_style
{ my( $twig, $path)= @_;
	print STDERR  "here we go!\n"; 
	$path->set_att('style','');
}