SWITCH: for ( $myValue ) { /$reg2/ && do { sub_for_key_a(); last SWITCH; }; /$reg1/ && do { whatever(); sub_for_key_b(); last SWITCH; }; #default sub_for_default(); } # END SWITCH