in reply to How Much Is Too Much (on one line of code)?

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

[download]

In Section Seekers of Perl Wisdom