use locale;
$daten=~s%(== .*?KAPITEL) (.*? ==)%\u$1 - \u$2%gi;