my $bar = (0,'low','med','high')[$foo=~tr/I//] || 'drat';
# or
my $bar;
$bar = (0,'low','med','high')[tr/I//] || 'drat' for $foo;