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

##</code><code>##

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

##</code><code>##

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