Select Code to Download

switch ( $foo ) {
    case ( ($foo ~= tr/I/I/) == 1 ) { $bar = 'low' }
...
    case ( ($foo ~= tr/I/I/) == 3 ) { $bar = 'high' }
    else { $bar = "drat" }
}