#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXSLT;
use XML::LibXML;
  
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
  
my $source = $parser->parse_file('1.xml');
my $style_doc = $parser->parse_file('1.xsl');
  
my $stylesheet = $xslt->parse_stylesheet($style_doc);
  
my $results = $stylesheet->transform($source);
  
print $stylesheet->output_string($results);

<SCHADSTOFFBELASTUNG>
      <BELASTUNGSGEBIET>INNSBRUCK/Zentrum</BELASTUNGSGEBIET>
      <BELASTUNGSGEBIET>INNSBRUCK/Reichenau</BELASTUNGSGEBIET>
      <BELASTUNGSGEBIET>KRAMSACH/Angerberg</BELASTUNGSGEBIET>
      <BELASTUNGSGEBIET>WOERGL/Stelzh.Str.</BELASTUNGSGEBIET>
      <BELASTUNGSGEBIET>KUFSTEIN/Zentrum</BELASTUNGSGEBIET>
      <BELASTUNGSGEBIET>LIENZ/Amlacherkreuzung</BELASTUNGSGEBIET>
</SCHADSTOFFBELASTUNG>

<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
 <xsl:template match="SCHADSTOFFBELASTUNG">
   <BLOCKQUOTE>

   <TT><B>Belastungsgebiet(e):</B></TT>
   <xsl:apply-templates/>

   </BLOCKQUOTE>
 </xsl:template>

 <xsl:template match="BELASTUNGSGEBIET">
        <TT><xsl:value-of select="."/></TT><BR/>
 </xsl:template>
</xsl:stylesheet>