perl -pi -e's/(word.*)\.$/$1/' file