#!/usr/bin/perl
use strict;
use warnings;

$ENV{CLEARCASE_VIEW_TAG} = 'result';

if ("i can haz result" =~ $ENV{CLEARCASE_VIEW_TAG}) {
    print "match\n";
}
__END__
match