my ($lat_old) = $line =~ m/lat='(-?\d+\.\d+)/;
my ($lon_old) = $line =~ m/lon='(-?\d+\.\d+)/;