Hi Can you please tell me why parsing the following XML returns an incomplete value?

<xml>
    <cat>
    <email_address><![CDATA[foo@yahoo.com]]></email_address>
    <name>foo</name>
    </cat>
</xml>
[download]

I use the following code to get the value of email_address and it returns foo.com instead of foo@yahoo.com.

my $obj = XML::Twig->new(twig_roots =>{'cat' => \&pp});
$obj->parse($sz);
sub pp
{
        my($objXML, $objTag) = @_;
        $grhshXML = {};
        @garTags = ();
        @garTags = $objTag->children();
        foreach my $arTag (@garTags)
        {
               $grhshXML->{$arTag->gi()} =$arTag->text();
        }
}
[download]

I also tried checking "$arTag->is_cdata" but it returns no value at all. Can you please help? Thanks