[Thomas]

$headers{SUBJECT} =~ s/([A-ZÅÄÖØa-zåäöø])([A-ZÅÄÖØa-zåäöø]+)/\U$1\E\L$2\E/g;
Ger En Text Likt Denna.

$headers{SUBJECT} =~ s/([A-ZÅÄÖØa-zåäöø])([A-ZÅÄÖØa-zåäöø]+)/\U$1\E\L$2\E/;
Ger en text likt denna gissar jag på iom att g är borttaget.