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