mini-quiz

Things have been pretty quiet on this list, so I'm bringing up
a question I thought would interest you all.

Ovid, on perlmonks, asks[1] if this code is doing too much on one line:

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

How would you write it?  Feel free to respond here or in the
perlmonks thread.  No need to wait 60 hours.

[1] Ovid's question, without the (already quite a few) replies:
http://perlmonks.org/?displaytype=print;node_id=621769