Basically, there isn't one. Read perldoc -q switch:

      How do I create a switch or case statement?

       This is explained in more depth in the perlsyn.  Briefly, there
+'s no
       official case statement, because of the variety of tests possib
+le in
       Perl (numeric comparison, string comparison, glob comparison, r
+egex
       matching, overloaded comparisons, ...).  Larry couldn't decide 
+how best
       to do this, so he left it out, even though it's been on the wis
+h list
       since perl1.

      ...
[download]