if($doc =~ /'$sent' (is|was) (.*)\./)
{
	$reform = "$sent $1 $2.\n\nFOUND!!";
}