my @out = @_[0..4]; # just up to the spotter
# normalise frequency
- $out[0] = sprintf "%.1f", $out[0]+0.05;
+ $out[0] = sprintf "%.1f", $out[0];
# remove ssids and /xxx if present on spotter
$out[4] =~ s/-\d+$//o;
}
}
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;