$line =~ s/lon='(-?\d+\.\d+)/lon='$lon_new/;
$line =~ s/lat='(-?\d+\.\d+)/lat='$lat_new/;