#!/usr/local/bin/perl

use strict;
use warnings;

use XML::LibXML;

my $xml = <<_XML;
<GEN_FSM>
  <State>
    <Name>POWERED</Name>
    <Comment>USB POWERED State</Comment>
  </State>
  <State>
    <Name>DEFAULT</Name>
    <Comment>USB DEFAULT State</Comment>
  </State>
  <State>
    <Name>ADDRESS</Name>
    <Comment>USB ADDRESS State</Comment>
  </State>
  <Rst_Arc>
    <To_State>DEFAULT</To_State>
    <monitor_mode_event_name>HOT_RST</monitor_mode_event_name>
    <monitor_mode_event_count>1</monitor_mode_event_count>
    <comment>HOT_reset_to_DEFAULT</comment>
  </Rst_Arc>
</GEN_FSM>
_XML

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_string( $xml );
my $root   = $doc->getDocumentElement;
my @nodes  = $root->findnodes( '/GEN_FSM/State/Name' );
foreach my $node ( @nodes ) {
  print $node->textContent, "\n";
}