Select Code to Download

$country = $country eq 'gbr' ? '' : uc "[$country]"
  if $country;

if ($country) {
  $country = $country eq 'gbr' ? '' : uc "[$country]";
}

my $country = '';
my $code = $card->country;
$country = "[\U$code]" unless $code eq 'gbr';