if ($word eq 'Well')    {


 #  save everything from now on

}