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