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