Not specifically, but you can emulate it. I use this technique for dispatch tables. 

#!/usr/bin/perl -w

use strict;

my $myvar = "that_one";

$_ = $myvar;

CASE:
{
    /^this_one$/ && do {
        print localtime();
        last CASE;
    };
    /^that_one$/ && do {
        print "SPOOOON!\n";
        last CASE;
    };
}

[download]

UPDATE: As Juerd has pointed out, this is a FAQ. If you take my answer from here please read the FAQ also. It is so much better to know where to find the information than to just know it. Programming is only fun when you are constantly learning, and you can't learn without the proper resources.
grep 
grep> cd pub
grep> more beer

[download]

In reply to Re: case command ?? by grep
in thread case command ?? by seriousfun

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.