['info', 't', 3],
['spotter', 'c', 4],
['by', 'c', 4],
+ ['dxcc', 'nc', 5],
['call_dxcc', 'nc', 5],
['by_dxcc', 'nc', 6],
['origin', 'c', 7, 9],
foreach $f (@f) {
my ($a, $b);
- if (m{^\d+/\d+$}) {
+ if ($f =~ m{^\d+/\d+$}) {
push @out, $f;
} elsif (($a, $b) = $f =~ m{^(\w+)(?:/(\w+))?$}) {
$b = lc $b if $b;