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

s/....\K //  (with the good number of '.')

##</code><code>##

s/....\K/ /