s/(.)(\.+)/$1 x (1+length $2)/seg;