$string=~s/(....)/$1-/s;