#!/usr/bin/perl

use warnings;
use strict;

use XML::DOM;

my $xmlstring = <<END;
<user>
   <firstName>Sebastian</firstName>
   <telephoneNumber>100</telephoneNumber>
   <associatedDevices>
                  <device>SEP111111111111</device>
                  <device>CSFBLA</device>
                  <device>SEP222222222222</device>
   </associatedDevices>
   <primaryExtension>
                  <pattern>100</pattern>
                  <routePartitionName>PT_Intern</routePartitionName>
   </primaryExtension>
   <associatedGroups>
            <userGroup>
                     <name>Standard CTI Enabled</name>
                     <userRoles>
                        <userRole>Standard CTI Enabled</userRole>
                     </userRoles>
            </userGroup>
            <userGroup>
                     <name>Standard CCM End Users</name>
                     <userRoles>
                        <userRole>Standard CCM End Users</userRole>
                        <userRole>Standard CCMUSER Administration</userRole>
                     </userRoles>
            </userGroup>
    </associatedGroups>
</user>
END

my @xml = split("\n", $xmlstring);
my $suitablestring = "";

for my $i (@xml) {
    $i = strip($i);
    $suitablestring .= $i;
}

my $parser = new XML::DOM::Parser;
my $dom = $parser->parsestring($suitablestring);

sub strip { 
    my $a = shift;
    $a =~ s/^\s+//;
    $a =~ s/\s+$//;
    return $a;
}

sub dokument {
    my $domina = shift;
    my @childNodes = $domina->getChildNodes();
    for my $node (@childNodes) {
        if ($node->getNodeType() == ELEMENT_NODE) {
            print $node->getNodeName() . "\n";
        }
        if ($node->getNodeType() == TEXT_NODE) {
            print "Value: " . strip($node->getNodeValue()) . "\n\n";
        }
        &dokument($node);
    }
}
&dokument($dom);