#!/usr/bin/perl

$a = 'TEMP';
$x = $ENV{$a};

if ($x =~ m#\QC:\DOCUME~1\z002n88f\LOCALS~1\Temp\E#)
{print "cool\n";
}
else {
print "$x\n"
		}