-if (@list > 1) {
- $f = $l;
- $f .= 'MM' if $f =~ /^[A-Z][A-Z]\d\d$/;
- ($lat, $long) = DXBearing::qratoll($f);
- $fll = DXBearing::lltos($lat, $long);
- #print "$lat $long\n";
-
- return (1, $self->msg('qrae2', $list[1])) unless (DXBearing::is_qra($list[1]) || $list[1] =~ /^[A-Za-z][A-Za-z]\d\d$/);
- $l = uc $list[1];
-}