Help for this page
#!perl -pl s/@{[s".."."gr]}\K$"//
s/....\K // (with the good number of '.')
s/....\K/ /