#!/usr/bin/perl
use strict;
use warnings;

my @words = ('GernotHavranek', 'dasIst Havi');

print "'$_'\n" for @words;

s~(?<=[a-zäöüß])(?=[A-ZÄÖÜ])~ ~g for @words;

print "'$_'\n" for @words;