#!perl -p
/(?=.{13}\D)/g;s/\G.\d/.$&/g