$string =~ s/(\w\w\w)/$1-/g;