my $site_file='<c:\sitefile.txt';
open data, $site_file || die "Horrible death";
my @lines=<data>;
my $str="";
close data;
for my $line(@lines){
if($Session->{'usrSystem'})=~/$line/g;
$Response->Write("Found a match! Hooray");
}