my ($country) = map {$_ eq 'gbr'? '': uc "[$_]"}
                grep {$_}
                ($card->country);