my $string = <<'*END*';
<produtos>
     <produto>
       <codigo>I0000949</codigo>
       <nome>Acucareiro Acril 200g Cromus Acrylic Line</nome>
       <categoria>SALA DE JANTAR:ACESSORIOS PARA MESA</categoria>
       <marca>Fabrica da Pedra</marca>    <preco></preco>
       <link>4,99</link>
       <imagem>http://imgproduto.casaevideo.com.br/jpg/ud-cozin/0000949b.jpg</imagem>
       <parcelamento>
          <parcelas>12</parcelas>
          <valor>0,53</valor>
       </parcelamento>
    </produto>
</produtos>
*END*

use XML::Twig;
my $twig = XML::Twig->new(keep_encoding => "true");
$twig->parse( $string);

foreach my $product ($twig->root->children('produto')) {
	my $data = $product->simplify();
#    use Data::Dumper;
#	print Dumper($data);

    $data->{nome} =~ s/\s+//g;
	print "$data->{nome}, parselas: $data->{parcelamento}{parcelas}\n";
#    ......................
}