+
+# every thing is dealt with in upper case
+$line = uc $line;
+
+# convert a lat/long into a qra locator if we see a pattern looking like a lat/long
+if ($line =~ /^\d+\s+\d+\s*[NS]\s+\d+\s+\d+\s*[EW]/) {
+ $line =~ s/(\d)([NSEW])/$1 $2/g;
+ my ($llat, $llong) = DXBearing::stoll(uc $line);
+ return (1, "QRA $line = " . DXBearing::lltoqra($llat, $llong));
+}
+
+# get the user's lat/long else the cluster's (and whinge about it)