#!/usr/bin/perl

use strict;
use warnings;

use XML::XSLT         qw( );
use Object::Destroyer qw( );

my $xslt = Object::Destroyer->new(
    XML::XSLT->new('foo.xslt', warnings => 1),
    'dispose',
);

$xslt->transform('foo.xml');
print $xslt->toString;

##</code><code>##

<?xml version="1.0" encoding="utf-8"?>
<PLMXML xmlns="http://www.plmxml.org/Schemas/PLMXMLSchema">
  <Form id="id24" subType="Part Revision Master">
    <UserData>
      <UserValue title="cage_code" value="98747"/>
    </UserData>
  </Form>
</PLMXML>

##</code><code>##

<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<xsl:value-of select="/PLMXML/Form[@subType='Part Revision Master']/UserData/UserValue[@title='cage_code']/@value"/>
</xsl:template>
</xsl:stylesheet>

##</code><code>##

Works:        "/PLMXML/Form[@id='id24']/UserData/UserValue[@title='cage_code']/@value"
Doesn't work: "/PLMXML/Form[@subType='Part Revision Master']"
Doesn't work: "/PLMXML/Form[@subType=&quot;Part Revision Master&quot;]/UserData/UserValue[@title='cage_code']/@value"