in reply to (jeffa) Re: ident.pl
in thread killlastdot.pl

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

Makeshifts last the longest.