use warnings;
use strict;
use XML::Twig;

my $str = '
<GroupsResponse>
    <Status>Success</Status>
    <Group resourceId="183837" id="11797" name="Test" description="" location="">
        <ResourcePrototype id="10001" name="Cave"/>
        <Resource id="101052" name="ABC"/>
        <Resource id="101082" name="DEF"/>
        <Resource id="101094" name="GHI"/>
    </Group>
</GroupsResponse>
';

my $t = XML::Twig->new(
    twig_handlers => { Resource => sub { print $_->att('name'), "\n"; } },
);
$t->parse($str);

__END__

ABC
DEF
GHI