Select Code to Download

switch ( $foo ) {
    case ( tr/I/I/ == 1 ) { $bar = 'low' }
...
    case ( tr/I/I/ == 3 ) { $bar = 'high' }
    else { warn "Bad $_\n" }
}

Use of uninitialized value $_ in transliteration (tr///)

#!perl! -w
use strict;
...
}

print "Foo: $foo Bar: $bar\n";

given ( $foo ) {
    when ( tr/I/I/ == 1 ) { $bar = 'low' }
...
    when ( tr/I/I/ == 3 ) { $bar = 'high' }
    default { $bar = "drat" }
}