SWITCH: { $tmp eq 'F' and last SWITCH; $tmp =~ /[MICL]/ and do { # Some things... } , last SWITCH; # do default else thing }