my $str = "== ERSTES KAPITEL DIE ERSTÜRMUNG DER BURG ==";
$str =~s{== (.*?KAPITEL.*?) ==}{ucfirst(lc($1))}eg;
print $str
'
Erstes kapitel die erstÜrmung der burg