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