#!/usr/bin/perl -wT
use strict;
use XML::LibXSLT;
use XML::LibXML;

my $page2 = "<root>
               <title>First title</title>
               <othertag>Other stuff</othertag>
               <title>Second title</title>
               <othertag>More other stuff</othertag>
             </root>";

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

# assumes you've got the XML doc as a string in $page2
my $source = $parser->parse_string($page2);
# assumes your XSL file is convert.xsl
my $style_doc = $parser->parse_file('convert.xsl');

my $stylesheet = $xslt->parse_stylesheet($style_doc);

my $results = $stylesheet->transform($source);

print $stylesheet->output_string($results);

##</code><code>##

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
  <xsl:template match="/">
    <root>
      <xsl:apply-templates select="//root/title"/>
    </root>
  </xsl:template>
  <xsl:template match="title">
  <li>
    <xsl:text>A</xsl:text>
      <xsl:value-of select="."/>
      <xsl:text>C</xsl:text>
  </li>
  </xsl:template>
</xsl:stylesheet>

##</code><code>##

<?xml version="1.0"?>
<root><li>AFirst titleC</li><li>ASecond titleC</li></root>