my $dots = "..";
s/^($dots)(.)(.)(.*)/$1$3$2$4/s;     # 12345 -> 12435