$string =~ s/(.{4})(?=.)/$1-/g;