my $suche = "__TOC__";
my $ersetze = "__FORCETOC__";
print $content . "\n";
$content =~ s/$suche/$ersetze/g;