#!perl -p
s#(??{'.'x pos})$# $&#