$wort =~ s/[.,;?!:]$//;