"latitude"; "longitude"; "name"
53.58464144;8.560693391;"AK2_PKW_A_001"
53.5777080210388;8.56104893106605;"AK2_PKW_A_002"

##</code><code>##

 
<?xml version='1.0' encoding='UTF-8'?>
<osm version='0.6' upload='false' generator='JOSM'>
  <bounds minlat='53.560255' minlon='8.5117942' maxlat='53.5974042' maxlon='8.6024315' origin='CGImap 0.6.1 (11651 thorn-03.openstreetmap.org)' />
  <node id='-1643794' lat='53.58464144' lon='8.560693391'>
    <tag k='name' v='ASC_A_KEI_001' />
  </node>
  <way id='-1653459' action='modify'>
    <nd ref='-1652714' />
    <nd ref='-1652766' />
    <nd ref='-1652768' />
    <tag k='highway' v='service' />
    <tag k='lanes:backward' v='1' />
    <tag k='lanes:forward' v='1' />
    <tag k='name' v='FW_W1_52' />
    <tag k='vehicle' v='private' />
  </way>
</osm>

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings 'all';
use feature 'say';

use Getopt::Long;
use Getopt::Std;
use Getopt::Long qw(GetOptions);
use XML::LibXML;
use Data::Dumper;

my $filenameMap = 'test.osm';
my($dom) = XML::LibXML->load_xml(location => $filenameMap);
my $doc =  $dom->documentElement;
my @children = $doc->childNodes;
my $countChildren = @children;

my @toUpdateNodes = ();
foreach my $child (@children) {
    my @childFromNodes = $child->childNodes;
    my $countChildFromNodes = @childFromNodes;
    foreach my $childNode (@childFromNodes) {
        #print $childNode->nodeType, "\n" ;
        if($childNode->nodeType == XML_ELEMENT_NODE && $childNode->hasAttribute("k")) {
            my $nodeVal = $childNode->getAttribute("v");
            print "NodeValue: ", $childNode->getAttribute("v"), "\n";
        }
    }
    
}