my $country = $card->country;
$country =
   $country
   ? $country eq q{gbr}
     ? q{}
     : qq{[\U$country]}
   : q{};