while (<INFILE>)
{
	$CurrentLine = $_;
	$WordPos = 0;

	if ($Line =~ /\000/)
	{
		print "Found nulls at line $Line file position: ";
         }

}