- my ($prefix) = $text =~ /\b(\w{1,4})$/;
- $text =~ s/\b\w{1,4}$// if $prefix && Prefix::extract($prefix);
+ if ($cty && $text && length $text <= 4) {
+ unless ($text =~ /^CQ/ || $text =~ /^\d+$/) {
+ my @try = Prefix::cty_data($text);
+ $text = "" if $cty == $try[0];
+ }
+ }