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