* Adam D. Barratt <adam@adam-barratt.org.uk>, 2016-03-12, 19:31:
$word =~ tr/.,;:?!//d;
This used to be: $word =~ s/[.,;:?!]+$//; which made sense. But someone :-P broke it in 0c114ec9502b. -- Jakub Wilk