#!/usr/bin/perl

use strict;
use warnings;


# Datei Inhalt wird unter __DATA__ abgelegt
# ersetze durch einlesen der Datei in Skalar
my $content;

 open (DATEI, "text.wiki_purge") or die $!;
    while(<DATEI>){
      $content = $content.$_;
    }
 close (DATEI);

# ersetze Vorkommen von <span ...>TEXT</span> durch ' TEXT '
#$content =~ s#<span\s+[^>]+>([^<]+?)</span># $1 #sg;
# jetzt werden alle <span>-Attribute entfernt
$content =~ s#<span\s+[^>]+>([^<]*?)</span># $1 #sg;


my $suche = "__TOC__";
my $ersetze = "__FORCETOC__";
$content =~ s/$suche/$ersetze/g;

open (DATEI, ">text.wiki_purge") or die $!;
    print DATEI $content;
 close (DATEI);