perl -pe's/\.$// if /word/' file