Ich würde es mit $s =~ s/(?<=\w)(?=\w)/ /g; machen.
(Also mit look-behind und look-ahead. Der eigentliche Match-String hat dann die Länge 0 und wird durch das Leerzeichen "ersetzt".)

Dabei werden die Leerzeichen nur zwischen zwei \w (also Buchstaben und/oder Ziffern) eingefügt. "Abc def. g1" würde so zu "A b c d e f. g 1". Ich weiss nicht, ob Du das willst.

Wenn Du Großbuchstaben (u.ggf. Umlaute) ausschließen willst, kannst Du die
\w in der Regex selbstverständlich durch [a-z0-9] ersetzen.