#!/usr/bin/perl


use strict;
use warnings;
use utf8;

my $daten;

open (DATEI, "test.osm") or die $!;
   while(<DATEI>){
     print $_."\n";
	  $_ =~ s/upload='true'/upload='false'/;

    # Auslesen der Koordinaten
	  my ($lat_old) = $_ =~ m/lat='(\d+\.\d+)/;
	  my ($lon_old) = $_ =~ m/lon='(\d+\.\d+)/; 
    if (defined ($lat_old) && defined ($lon_old)){
      print "my lat= ".$lat_old." lat= ".$lon_old."\n";
    }
    }
close (DATEI);