... or the poor mans' equivalent of a switch...

SWITCH:
{
    $foo =~ tr/I/I/ == 1 && do {
        $bar = 'low';
        last SWITCH;
    };
    $foo =~ tr/I/I/ == 2 && do {
        $bar = 'med';
        last SWITCH;
    };
    $foo =~ tr/I/I/ == 3 && do {
        $bar = 'high';
        last SWITCH;
    };
    $bar = "drat";
}
[download]

construct.

Update Corrected typos...

• ~= should, of course, be =~
• Extraneous )