my $search;
my $search1;
my $replace;
# Reduce all Infoboxes
$search = "(<!-- ########## Modul infobox  : START ########## -->)";
$search1 = "(<!-- ########## Modul infobox  : ENDE ########## -->)";
$replace = "(<!-- ########## Infobox Inhalt ########## -->)";
#s/$search.*.$search1/$replace/gim;