Hmmm LanX, not unlike the construct I found when and have used ever since, I was looking for an alternative to the Switch modules available at the time - viz...

for ($var){
  SWITCH: {
    /abc/ && do { print "abc"}        # falls through
    /def/ && do { print "def" ; last SWITCH }
    /xyz/ && do { print "xyz" ; last SWITCH }
    print "default";
  };
  .
  .
}
[download]

A construct I much prefer (for readability if nothing else) to what sometimes appear to extend to seemingly interminable if-elif-else constructs.