http://www.perlmonks.org?node_id=622382


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

Why use two lines, when one will do? (*grin*)
my ($country) = map { ( ! $_ or $_ eq 'gbr' ) ? '' : "[$_]" } $card- +>country;
(And yes, I know this doesn't preserve values of zero or undef, but it seems unlikely that's desirable...)