http://www.perlmonks.org?node_id=990181


in reply to Short and easy way to write if...elsif syntax

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 ...

Cheers Rolf