open(FILE,"test.txt");

while(<FILE>)
{
	$line=$_;
	chop($line);
	if($line !~ /this/i)
	{
		print "$line\n";
	}
}

close(FILE)