SWITCH: for ($mystring) {
    /key1/ && do {
        …
        last SWITCH;
    };
    /key2/ && do {
        …
        last SWITCH;
    };
    /key3/ && do {
        …
        last SWITCH;
    };
    # default
        …
        last SWITCH;
}