perl -pi -e's/(word.*)\.$/$1/' file [download]
Makeshifts last the longest.
In reply to Re^2: ident(?).pl by Aristotle in thread killlastdot.pl by hash