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