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]