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


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

I'd write it in the following way:

my $country = $card->country; if( $country ) { $country = $country eq 'gbr' ? '' : uc "[$country]"; } # if $country

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"