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);
|
---|
In Section
Seekers of Perl Wisdom