#!/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;
    };
}