#!perl -pl
s/@{[s".."."gr]}\K$"//

# thanks for the report, brx!
# i thought i had acquired black magic skill :-)