Re: switch, transliteration ( tr/// ) of $_ issue

[runrig]

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

[blazar]

No real advantage, but for completeness:

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

qw helps, and "0" is false...