Re: Short and easy way to write if...elsif syntax

[LanX]

no need to repeat $_ =~ and just add next to avoid fall thru.

  for ($given){
    print "\nFOR($_):";
    if (/abc/) { print "abc"}
    if (/def/) { print "def" ;next}
    if (/xyz/) { print "xyz" ;next}
    print "default";
  }

more examples at Understanding the benefit of Given/When ...