for ($variable_to_test) {   
    if    (/pat1/)  { }     # do something 
    elsif (/pat2/)  { }     # do something else
    elsif (/pat3/)  { }     # do something else
    else            { }     # default
}