- my @tok = map {/^(?:HC|BUR|QRZ|HOME)/ || is_callsign($_) ? $_ : ()} split(/\b/, uc $line);
- foreach my $man (@tok) {
- if ($man =~ /^BUR/) {
- $man = 'BUREAU';
- } elsif ($man eq 'HC' || $man =~ /^HOM/) {
- $man = 'HOME CALL';
+ if (is_callsign($man)) {
+ my @pre = Prefix::extract($man);
+ $tok = $man if @pre && $pre[0] ne 'Q';
+ } elsif ($man =~ /^BUR/) {
+ $tok = 'BUREAU';
+ } elsif ($man eq 'HC' || $man =~ /^HOM/ || $man =~ /^DIR/) {
+ $tok = 'HOME CALL';