my $country = do{ local $_ = $card->country and !m[GBR]i ? uc( "[$_]" ) : '' };

##</code><code>##

my $country = do{ 
    local $_ = $card->country and !m[GBR]i 
    ? uc( "[$_]" ) : '' 
};