if(m/$key/i)
        {
	$wordMatchFilePosition = tell FILEHANDLE;
        seek FILEHANDLE, -1700, 1;
	$currentFilePosition = tell FILEHANDLE;
                       ...