#!perl -pl
s/@{[s".."."gr]}\K$"//
# see :http://www.perlmonks.org/?node_id=1052121