# remove SSID or area
$by =~ s|[-/]\d+$||;
- $freq = sprintf "%.1f", $freq; # normalise frequency
+# $freq = sprintf "%.1f", $freq; # normalise frequency
+ $freq = int $freq; # normalise frequency
$call = substr($call, 0, $maxcalllth) if length $call > $maxcalllth;
chomp $text;
}
}
my $otext = $text;
+ $text =~ s/^\+\w+\s*//; # remove leading LoTW callsign
$text = pack("C*", map {$_ & 127} unpack("C*", $text));
$text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24;
$text =~ s/[^\w]//g;