use XML::LibXML;

my $parser = XML::LibXML->new();

my $tree = $parser->parse_fh(*DATA);
my $root = $tree->getDocumentElement;

for my $node ( $root->findnodes("//Device/*/status/text()") )
{
    print $node->nodeValue, $/;
}
# print $root->serialize(1);

__DATA__
<?xml version="1.0" standalone="yes" ?>

<SymCLI_ML>
  <Symmetrix>
    <Symm_Info>
      <symid>000290101935</symid>
    </Symm_Info>
    <Device>
      <Dev_Info>
        <pd_name>Not Visible</pd_name>
        <dev_name>0040</dev_name>
# ...


##</code><code>##

for my $node ( $root->findnodes("//Device/*") )
{
    print $node->nodeName, $/;
}