# 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";
    }