Help for this page
if($doc =~ /'$sent' (is|was) ([\w]+[\s]*[,|;|"|'|\-]?[\s]*)+\./) { $reform = "$sent $1 $2.\n\nFOUND!!"; }
if($doc =~ /'$sent' (is|was) (.*)\./) { $reform = "$sent $1 $2.\n\nFOUND!!"; }