#!/usr/bin/perl -w
#
#

use strict;

open(FH,"+<zeitplan.html");
local($/);
my $txt=<FH>;

$txt=~s/<a href="\/pentabarf\/[^"]+">((?:(?!<\/a>).)*?)<\/a>/$1/g;
$txt=~s/\Q<li>Uwe Berger (Coordinator)<\/li>\E//g;

seek(FH,0,0);
truncate(FH,0);

print FH $txt;

close(FH);



