my $twig= new XML::Twig();
$twig->parsefile( $_);    # build the twig 
  foreach my $elt ($twig->root->children)
  {
  print $fout1 $elt->text."\n";
}