mkdir ("no1") ;
mkdir ("no2") ;
mkdir ("no3") ;
mkdir ("no4") ;
mkdir ("no5") ;
mkdir ("no6") ;
mkdir ("no7") ;
mkdir ("no8") ;
mkdir ("no9") ;
mkdir ("no10") ;
mkdir ("no11") ;
mkdir ("no12") ;
mkdir ("no13") ;
mkdir ("no14") ;
mkdir ("no15") ;
mkdir ("no16") ;
mkdir ("no17") ;
mkdir ("no18") ;
mkdir ("no19") ;
mkdir ("no20") ;
mkdir ("no21") ;
mkdir ("no22") ;
mkdir ("no23") ;
mkdir ("no24") ;
mkdir ("no25") ;
mkdir ("no26") ;
mkdir ("no27") ;
mkdir ("no28") ;
mkdir ("no29") ;
mkdir ("no30") ;
mkdir ("no31") ;
mkdir ("no32") ;
mkdir ("no33") ;
mkdir ("no34") ;
mkdir ("no35") ;
mkdir ("no36") ;


$head1 = "<html><head><title>";


$end = "</body></html>";

$INHALT1 = "index";
$ext = "html";

$HAUPT1 = "$INHALT1".".$ext"; 


open (DES, "d.txt") || die "Design\n";

@designinputk = <DES>;
close (DES);

$DESa1 = @designinputk[0];
chop $DESa1;

$head2 = $DESa1;


open (KKK, "k.txt") || die "Da1\n";

@fileinputk = <KKK>;
close (KKK);


$kkka1 = @fileinputk[0];
chop $kkka1;

$kkka2 = @fileinputk[1];
chop $kkka2;

$kkka3 = @fileinputk[2];
chop $kkka3;

$kkka4 = @fileinputk[3];
chop $kkka4;

$kkka5 = @fileinputk[4];
chop $kkka5;

$kkka6 = @fileinputk[5];
chop $kkka6;

$kkka7 = @fileinputk[6];
chop $kkka7;

$kkka8 = @fileinputk[7];
chop $kkka8;

$kkka9 = @fileinputk[8];
chop $kkka9;

$kkka10 = @fileinputk[9];
chop $kkka10;

$kkka11 = @fileinputk[10];
chop $kkka11;

$kkka12 = @fileinputk[11];
chop $kkka12;

$kkka13 = @fileinputk[12];
chop $kkka13;

$kkka14 = @fileinputk[13];
chop $kkka14;

$kkka15 = @fileinputk[14];
chop $kkka15;

$kkka16 = @fileinputk[15];
chop $kkka16;

$kkka17 = @fileinputk[16];
chop $kkka17;

$kkka18 = @fileinputk[17];
chop $kkka18;

$kkka19 = @fileinputk[18];
chop $kkka19;

$kkka20 = @fileinputk[19];
chop $kkka20;

$kkka21 = @fileinputk[20];
chop $kkka21;

$kkka22 = @fileinputk[21];
chop $kkka22;

$kkka23 = @fileinputk[22];
chop $kkka23;

$kkka24 = @fileinputk[23];
chop $kkka24;

$kkka25 = @fileinputk[24];
chop $kkka25;

$kkka26 = @fileinputk[25];
chop $kkka26;

$kkka27 = @fileinputk[26];
chop $kkka27;

$kkka28 = @fileinputk[27];
chop $kkka28;

$kkka29 = @fileinputk[28];
chop $kkka29;

$kkka30 = @fileinputk[29];
chop $kkka30;

$kkka31 = @fileinputk[30];
chop $kkka31;

$kkka32 = @fileinputk[31];
chop $kkka32;

$kkka33 = @fileinputk[32];
chop $kkka33;

$kkka34 = @fileinputk[33];
chop $kkka34;

$kkka35 = @fileinputk[34];
chop $kkka35;

$kkka36 = @fileinputk[35];
chop $kkka36;


open (ERSTE, "soso.txt") || die "Datei3 nicht gefunden\n";

@fileinput1so = <ERSTE>;
close (ERSTE);


$a01a1 = @fileinput1so[0];
$a02a1 = @fileinput1so[1];
$a03a1 = @fileinput1so[2];
$a04a1 = @fileinput1so[3];
$a05a1 = @fileinput1so[4];
$a06a1 = @fileinput1so[5];
$a07a1 = @fileinput1so[6];
$a08a1 = @fileinput1so[7];
$a01a2 = @fileinput1so[8];
$a02a2 = @fileinput1so[9];
$a03a2 = @fileinput1so[10];
$a04a2 = @fileinput1so[11];
$a05a2 = @fileinput1so[12];
$a06a2 = @fileinput1so[13];
$a07a2 = @fileinput1so[14];
$a01a3 = @fileinput1so[15];
$a02a3 = @fileinput1so[16];
$a03a3 = @fileinput1so[17];
$a04a3 = @fileinput1so[18];
$a05a3 = @fileinput1so[19];
$a06a3 = @fileinput1so[20];
$a01a4 = @fileinput1so[21];
$a02a4 = @fileinput1so[22];
$a03a4 = @fileinput1so[23];
$a04a4 = @fileinput1so[24];
$a05a4 = @fileinput1so[25];
$a06a4 = @fileinput1so[26];
$a07a4 = @fileinput1so[27];
$a08a4 = @fileinput1so[28];
$a01a5 = @fileinput1so[29];
$a02a5 = @fileinput1so[30];
$a03a5 = @fileinput1so[31];
$a04a5 = @fileinput1so[32];
$a05a5 = @fileinput1so[33];
$a06a5 = @fileinput1so[34];
$a07a5 = @fileinput1so[35];
$a01a6 = @fileinput1so[36];
$a02a6 = @fileinput1so[37];
$a03a6 = @fileinput1so[38];
$a04a6 = @fileinput1so[39];
$a05a6 = @fileinput1so[40];
$a06a6 = @fileinput1so[41];
$a01a7 = @fileinput1so[42];
$a02a7 = @fileinput1so[43];
$a03a7 = @fileinput1so[44];
$a04a7 = @fileinput1so[45];
$a05a7 = @fileinput1so[46];
$a06a7 = @fileinput1so[47];
$a07a7 = @fileinput1so[48];
$a08a7 = @fileinput1so[49];
$a01a8 = @fileinput1so[50];
$a02a8 = @fileinput1so[51];
$a03a8 = @fileinput1so[52];
$a04a8 = @fileinput1so[53];
$a05a8 = @fileinput1so[54];
$a06a8 = @fileinput1so[55];
$a07a8 = @fileinput1so[56];
$a01a9 = @fileinput1so[57];
$a02a9 = @fileinput1so[58];
$a03a9 = @fileinput1so[59];
$a04a9 = @fileinput1so[60];
$a05a9 = @fileinput1so[61];
$a06a9 = @fileinput1so[62];
$a01a10 = @fileinput1so[63];
$a02a10 = @fileinput1so[64];
$a03a10 = @fileinput1so[65];
$a04a10 = @fileinput1so[66];
$a05a10 = @fileinput1so[67];
$a06a10 = @fileinput1so[68];
$a07a10 = @fileinput1so[69];
$a08a10 = @fileinput1so[70];
$a01a11 = @fileinput1so[71];
$a02a11 = @fileinput1so[72];
$a03a11 = @fileinput1so[73];
$a04a11 = @fileinput1so[74];
$a05a11 = @fileinput1so[75];
$a06a11 = @fileinput1so[76];
$a07a11 = @fileinput1so[77];
$a01a12 = @fileinput1so[78];
$a02a12 = @fileinput1so[79];
$a03a12 = @fileinput1so[80];
$a04a12 = @fileinput1so[81];
$a05a12 = @fileinput1so[82];
$a06a12 = @fileinput1so[83];
$a01a13 = @fileinput1so[84];
$a02a13 = @fileinput1so[85];
$a03a13 = @fileinput1so[86];
$a04a13 = @fileinput1so[87];
$a05a13 = @fileinput1so[88];
$a06a13 = @fileinput1so[89];
$a07a13 = @fileinput1so[90];
$a08a13 = @fileinput1so[91];
$a01a14 = @fileinput1so[92];
$a02a14 = @fileinput1so[93];
$a03a14 = @fileinput1so[94];
$a04a14 = @fileinput1so[95];
$a05a14 = @fileinput1so[96];
$a06a14 = @fileinput1so[97];
$a07a14 = @fileinput1so[98];
$a01a15 = @fileinput1so[99];
$a02a15 = @fileinput1so[100];
$a03a15 = @fileinput1so[101];
$a04a15 = @fileinput1so[102];
$a05a15 = @fileinput1so[103];
$a06a15 = @fileinput1so[104];
$a01a16 = @fileinput1so[105];
$a02a16 = @fileinput1so[106];
$a03a16 = @fileinput1so[107];
$a04a16 = @fileinput1so[108];
$a05a16 = @fileinput1so[109];
$a06a16 = @fileinput1so[110];
$a07a16 = @fileinput1so[111];
$a08a16 = @fileinput1so[112];
$a01a17 = @fileinput1so[113];
$a02a17 = @fileinput1so[114];
$a03a17 = @fileinput1so[115];
$a04a17 = @fileinput1so[116];
$a05a17 = @fileinput1so[117];
$a06a17 = @fileinput1so[118];
$a07a17 = @fileinput1so[119];
$a01a18 = @fileinput1so[120];
$a02a18 = @fileinput1so[121];
$a03a18 = @fileinput1so[122];
$a04a18 = @fileinput1so[123];
$a05a18 = @fileinput1so[124];
$a06a18 = @fileinput1so[125];
$a01a19 = @fileinput1so[126];
$a02a19 = @fileinput1so[127];
$a03a19 = @fileinput1so[128];
$a04a19 = @fileinput1so[129];
$a05a19 = @fileinput1so[130];
$a06a19 = @fileinput1so[131];
$a07a19 = @fileinput1so[132];
$a08a19 = @fileinput1so[133];
$a01a20 = @fileinput1so[134];
$a02a20 = @fileinput1so[135];
$a03a20 = @fileinput1so[136];
$a04a20 = @fileinput1so[137];
$a05a20 = @fileinput1so[138];
$a06a20 = @fileinput1so[139];
$a07a20 = @fileinput1so[140];
$a01a21 = @fileinput1so[141];
$a02a21 = @fileinput1so[142];
$a03a21 = @fileinput1so[143];
$a04a21 = @fileinput1so[144];
$a05a21 = @fileinput1so[145];
$a06a21 = @fileinput1so[146];
$a01a22 = @fileinput1so[147];
$a02a22 = @fileinput1so[148];
$a03a22 = @fileinput1so[149];
$a04a22 = @fileinput1so[150];
$a05a22 = @fileinput1so[151];
$a06a22 = @fileinput1so[152];
$a07a22 = @fileinput1so[153];
$a08a22 = @fileinput1so[154];
$a01a23 = @fileinput1so[155];
$a02a23 = @fileinput1so[156];
$a03a23 = @fileinput1so[157];
$a04a23 = @fileinput1so[158];
$a05a23 = @fileinput1so[159];
$a06a23 = @fileinput1so[160];
$a07a23 = @fileinput1so[161];
$a01a24 = @fileinput1so[162];
$a02a24 = @fileinput1so[163];
$a03a24 = @fileinput1so[164];
$a04a24 = @fileinput1so[165];
$a05a24 = @fileinput1so[166];
$a06a24 = @fileinput1so[167];
$a01a25 = @fileinput1so[168];
$a02a25 = @fileinput1so[169];
$a03a25 = @fileinput1so[170];
$a04a25 = @fileinput1so[171];
$a05a25 = @fileinput1so[172];
$a06a25 = @fileinput1so[173];
$a07a25 = @fileinput1so[174];
$a08a25 = @fileinput1so[175];
$a01a26 = @fileinput1so[176];
$a02a26 = @fileinput1so[177];
$a03a26 = @fileinput1so[178];
$a04a26 = @fileinput1so[179];
$a05a26 = @fileinput1so[180];
$a06a26 = @fileinput1so[181];
$a07a26 = @fileinput1so[182];
$a01a27 = @fileinput1so[183];
$a02a27 = @fileinput1so[184];
$a03a27 = @fileinput1so[185];
$a04a27 = @fileinput1so[186];
$a05a27 = @fileinput1so[187];
$a06a27 = @fileinput1so[188];
$a01a28 = @fileinput1so[189];
$a02a28 = @fileinput1so[190];
$a03a28 = @fileinput1so[191];
$a04a28 = @fileinput1so[192];
$a05a28 = @fileinput1so[193];
$a06a28 = @fileinput1so[194];
$a07a28 = @fileinput1so[195];
$a08a28 = @fileinput1so[196];
$a01a29 = @fileinput1so[197];
$a02a29 = @fileinput1so[198];
$a03a29 = @fileinput1so[199];
$a04a29 = @fileinput1so[200];
$a05a29 = @fileinput1so[201];
$a06a29 = @fileinput1so[202];
$a07a29 = @fileinput1so[203];
$a01a30 = @fileinput1so[204];
$a02a30 = @fileinput1so[205];
$a03a30 = @fileinput1so[206];
$a04a30 = @fileinput1so[207];
$a05a30 = @fileinput1so[208];
$a06a30 = @fileinput1so[209];
$a01a31 = @fileinput1so[210];
$a02a31 = @fileinput1so[211];
$a03a31 = @fileinput1so[212];
$a04a31 = @fileinput1so[213];
$a05a31 = @fileinput1so[214];
$a06a31 = @fileinput1so[215];
$a07a31 = @fileinput1so[216];
$a08a31 = @fileinput1so[217];
$a01a32 = @fileinput1so[218];
$a02a32 = @fileinput1so[219];
$a03a32 = @fileinput1so[220];
$a04a32 = @fileinput1so[221];
$a05a32 = @fileinput1so[222];
$a06a32 = @fileinput1so[223];
$a07a32 = @fileinput1so[224];
$a01a33 = @fileinput1so[225];
$a02a33 = @fileinput1so[226];
$a03a33 = @fileinput1so[227];
$a04a33 = @fileinput1so[228];
$a05a33 = @fileinput1so[229];
$a06a33 = @fileinput1so[230];
$a01a34 = @fileinput1so[231];
$a02a34 = @fileinput1so[232];
$a03a34 = @fileinput1so[233];
$a04a34 = @fileinput1so[234];
$a05a34 = @fileinput1so[235];
$a06a34 = @fileinput1so[236];
$a07a34 = @fileinput1so[237];
$a08a34 = @fileinput1so[238];
$a01a35 = @fileinput1so[239];
$a02a35 = @fileinput1so[240];
$a03a35 = @fileinput1so[241];
$a04a35 = @fileinput1so[242];
$a05a35 = @fileinput1so[243];
$a06a35 = @fileinput1so[244];
$a07a35 = @fileinput1so[245];
$a01a36 = @fileinput1so[246];
$a02a36 = @fileinput1so[247];
$a03a36 = @fileinput1so[248];
$a04a36 = @fileinput1so[249];
$a05a36 = @fileinput1so[250];
$a06a36 = @fileinput1so[251];


open (FULL1, "1/1.txt") || die "Datei1 nicht gefunden\n";
@FUELLER1 = <FULL1>;
close (FULL1);
$y1 = @FUELLER1[0];
$ainhalt01a1 = substr($y1,0,1500);
$ainhalt02a1 = substr($y1,1501,1500);
$ainhalt03a1 = substr($y1,3001,1500);
$ainhalt04a1 = substr($y1,4501,1500);
$ainhalt05a1 = substr($y1,6001,1500);
$ainhalt06a1 = substr($y1,7501,1500);
$ainhalt07a1 = substr($y1,9001,1500);
$ainhalt08a1 = substr($y1,10501,1500);
$ainhalt09a1 = substr($y1,12001,1500);


open (FULL2, "1/2.txt") || die "Datei1 nicht gefunden\n";
@FUELLER2 = <FULL2>;
close (FULL2);
$y2 = @FUELLER2[0];
$ainhalt01a2 = substr($y2,0,1500);
$ainhalt02a2 = substr($y2,1501,1500);
$ainhalt03a2 = substr($y2,3001,1500);
$ainhalt04a2 = substr($y2,4501,1500);
$ainhalt05a2 = substr($y2,6001,1500);
$ainhalt06a2 = substr($y2,7501,1500);
$ainhalt07a2 = substr($y2,9001,1500);
$ainhalt08a2 = substr($y2,10501,1500);
$ainhalt09a2 = substr($y2,12001,1500);


open (FULL3, "1/3.txt") || die "Datei1 nicht gefunden\n";
@FUELLER3 = <FULL3>;
close (FULL3);
$y3 = @FUELLER3[0];
$ainhalt01a3 = substr($y3,0,1500);
$ainhalt02a3 = substr($y3,1501,1500);
$ainhalt03a3 = substr($y3,3001,1500);
$ainhalt04a3 = substr($y3,4501,1500);
$ainhalt05a3 = substr($y3,6001,1500);
$ainhalt06a3 = substr($y3,7501,1500);
$ainhalt07a3 = substr($y3,9001,1500);
$ainhalt08a3 = substr($y3,10501,1500);
$ainhalt09a3 = substr($y3,12001,1500);


open (FULL4, "1/4.txt") || die "Datei1 nicht gefunden\n";
@FUELLER4 = <FULL4>;
close (FULL4);
$y4 = @FUELLER4[0];
$ainhalt01a4 = substr($y4,0,1500);
$ainhalt02a4 = substr($y4,1501,1500);
$ainhalt03a4 = substr($y4,3001,1500);
$ainhalt04a4 = substr($y4,4501,1500);
$ainhalt05a4 = substr($y4,6001,1500);
$ainhalt06a4 = substr($y4,7501,1500);
$ainhalt07a4 = substr($y4,9001,1500);
$ainhalt08a4 = substr($y4,10501,1500);
$ainhalt09a4 = substr($y4,12001,1500);


open (FULL5, "1/5.txt") || die "Datei1 nicht gefunden\n";
@FUELLER5 = <FULL5>;
close (FULL5);
$y5 = @FUELLER5[0];
$ainhalt01a5 = substr($y5,0,1500);
$ainhalt02a5 = substr($y5,1501,1500);
$ainhalt03a5 = substr($y5,3001,1500);
$ainhalt04a5 = substr($y5,4501,1500);
$ainhalt05a5 = substr($y5,6001,1500);
$ainhalt06a5 = substr($y5,7501,1500);
$ainhalt07a5 = substr($y5,9001,1500);
$ainhalt08a5 = substr($y5,10501,1500);
$ainhalt09a5 = substr($y5,12001,1500);


open (FULL6, "1/6.txt") || die "Datei1 nicht gefunden\n";
@FUELLER6 = <FULL6>;
close (FULL6);
$y6 = @FUELLER6[0];
$ainhalt01a6 = substr($y6,0,1500);
$ainhalt02a6 = substr($y6,1501,1500);
$ainhalt03a6 = substr($y6,3001,1500);
$ainhalt04a6 = substr($y6,4501,1500);
$ainhalt05a6 = substr($y6,6001,1500);
$ainhalt06a6 = substr($y6,7501,1500);
$ainhalt07a6 = substr($y6,9001,1500);
$ainhalt08a6 = substr($y6,10501,1500);
$ainhalt09a6 = substr($y6,12001,1500);


open (FULL7, "1/7.txt") || die "Datei1 nicht gefunden\n";
@FUELLER7 = <FULL7>;
close (FULL7);
$y7 = @FUELLER7[0];
$ainhalt01a7 = substr($y7,0,1500);
$ainhalt02a7 = substr($y7,1501,1500);
$ainhalt03a7 = substr($y7,3001,1500);
$ainhalt04a7 = substr($y7,4501,1500);
$ainhalt05a7 = substr($y7,6001,1500);
$ainhalt06a7 = substr($y7,7501,1500);
$ainhalt07a7 = substr($y7,9001,1500);
$ainhalt08a7 = substr($y7,10501,1500);
$ainhalt09a7 = substr($y7,12001,1500);


open (FULL8, "1/8.txt") || die "Datei1 nicht gefunden\n";
@FUELLER8 = <FULL8>;
close (FULL8);
$y8 = @FUELLER8[0];
$ainhalt01a8 = substr($y8,0,1500);
$ainhalt02a8 = substr($y8,1501,1500);
$ainhalt03a8 = substr($y8,3001,1500);
$ainhalt04a8 = substr($y8,4501,1500);
$ainhalt05a8 = substr($y8,6001,1500);
$ainhalt06a8 = substr($y8,7501,1500);
$ainhalt07a8 = substr($y8,9001,1500);
$ainhalt08a8 = substr($y8,10501,1500);
$ainhalt09a8 = substr($y8,12001,1500);


open (FULL9, "1/9.txt") || die "Datei1 nicht gefunden\n";
@FUELLER9 = <FULL9>;
close (FULL9);
$y9 = @FUELLER9[0];
$ainhalt01a9 = substr($y9,0,1500);
$ainhalt02a9 = substr($y9,1501,1500);
$ainhalt03a9 = substr($y9,3001,1500);
$ainhalt04a9 = substr($y9,4501,1500);
$ainhalt05a9 = substr($y9,6001,1500);
$ainhalt06a9 = substr($y9,7501,1500);
$ainhalt07a9 = substr($y9,9001,1500);
$ainhalt08a9 = substr($y9,10501,1500);
$ainhalt09a9 = substr($y9,12001,1500);


open (FULL10, "1/10.txt") || die "Datei1 nicht gefunden\n";
@FUELLER10 = <FULL10>;
close (FULL10);
$y10 = @FUELLER10[0];
$ainhalt01a10 = substr($y10,0,1500);
$ainhalt02a10 = substr($y10,1501,1500);
$ainhalt03a10 = substr($y10,3001,1500);
$ainhalt04a10 = substr($y10,4501,1500);
$ainhalt05a10 = substr($y10,6001,1500);
$ainhalt06a10 = substr($y10,7501,1500);
$ainhalt07a10 = substr($y10,9001,1500);
$ainhalt08a10 = substr($y10,10501,1500);
$ainhalt09a10 = substr($y10,12001,1500);


open (FULL11, "1/11.txt") || die "Datei1 nicht gefunden\n";
@FUELLER11 = <FULL11>;
close (FULL11);
$y11 = @FUELLER11[0];
$ainhalt01a11 = substr($y11,0,1500);
$ainhalt02a11 = substr($y11,1501,1500);
$ainhalt03a11 = substr($y11,3001,1500);
$ainhalt04a11 = substr($y11,4501,1500);
$ainhalt05a11 = substr($y11,6001,1500);
$ainhalt06a11 = substr($y11,7501,1500);
$ainhalt07a11 = substr($y11,9001,1500);
$ainhalt08a11 = substr($y11,10501,1500);
$ainhalt09a11 = substr($y11,12001,1500);


open (FULL12, "1/12.txt") || die "Datei1 nicht gefunden\n";
@FUELLER12 = <FULL12>;
close (FULL12);
$y12 = @FUELLER12[0];
$ainhalt01a12 = substr($y12,0,1500);
$ainhalt02a12 = substr($y12,1501,1500);
$ainhalt03a12 = substr($y12,3001,1500);
$ainhalt04a12 = substr($y12,4501,1500);
$ainhalt05a12 = substr($y12,6001,1500);
$ainhalt06a12 = substr($y12,7501,1500);
$ainhalt07a12 = substr($y12,9001,1500);
$ainhalt08a12 = substr($y12,10501,1500);
$ainhalt09a12 = substr($y12,12001,1500);


open (FULL13, "1/13.txt") || die "Datei1 nicht gefunden\n";
@FUELLER13 = <FULL13>;
close (FULL13);
$y13 = @FUELLER13[0];
$ainhalt01a13 = substr($y13,0,1500);
$ainhalt02a13 = substr($y13,1501,1500);
$ainhalt03a13 = substr($y13,3001,1500);
$ainhalt04a13 = substr($y13,4501,1500);
$ainhalt05a13 = substr($y13,6001,1500);
$ainhalt06a13 = substr($y13,7501,1500);
$ainhalt07a13 = substr($y13,9001,1500);
$ainhalt08a13 = substr($y13,10501,1500);
$ainhalt09a13 = substr($y13,12001,1500);


open (FULL14, "1/14.txt") || die "Datei1 nicht gefunden\n";
@FUELLER14 = <FULL14>;
close (FULL14);
$y14 = @FUELLER14[0];
$ainhalt01a14 = substr($y14,0,1500);
$ainhalt02a14 = substr($y14,1501,1500);
$ainhalt03a14 = substr($y14,3001,1500);
$ainhalt04a14 = substr($y14,4501,1500);
$ainhalt05a14 = substr($y14,6001,1500);
$ainhalt06a14 = substr($y14,7501,1500);
$ainhalt07a14 = substr($y14,9001,1500);
$ainhalt08a14 = substr($y14,10501,1500);
$ainhalt09a14 = substr($y14,12001,1500);


open (FULL15, "1/15.txt") || die "Datei1 nicht gefunden\n";
@FUELLER15 = <FULL15>;
close (FULL15);
$y15 = @FUELLER15[0];
$ainhalt01a15 = substr($y15,0,1500);
$ainhalt02a15 = substr($y15,1501,1500);
$ainhalt03a15 = substr($y15,3001,1500);
$ainhalt04a15 = substr($y15,4501,1500);
$ainhalt05a15 = substr($y15,6001,1500);
$ainhalt06a15 = substr($y15,7501,1500);
$ainhalt07a15 = substr($y15,9001,1500);
$ainhalt08a15 = substr($y15,10501,1500);
$ainhalt09a15 = substr($y15,12001,1500);


open (FULL16, "1/16.txt") || die "Datei1 nicht gefunden\n";
@FUELLER16 = <FULL16>;
close (FULL16);
$y16 = @FUELLER16[0];
$ainhalt01a16 = substr($y16,0,1500);
$ainhalt02a16 = substr($y16,1501,1500);
$ainhalt03a16 = substr($y16,3001,1500);
$ainhalt04a16 = substr($y16,4501,1500);
$ainhalt05a16 = substr($y16,6001,1500);
$ainhalt06a16 = substr($y16,7501,1500);
$ainhalt07a16 = substr($y16,9001,1500);
$ainhalt08a16 = substr($y16,10501,1500);
$ainhalt09a16 = substr($y16,12001,1500);


open (FULL17, "1/17.txt") || die "Datei1 nicht gefunden\n";
@FUELLER17 = <FULL17>;
close (FULL17);
$y17 = @FUELLER17[0];
$ainhalt01a17 = substr($y17,0,1500);
$ainhalt02a17 = substr($y17,1501,1500);
$ainhalt03a17 = substr($y17,3001,1500);
$ainhalt04a17 = substr($y17,4501,1500);
$ainhalt05a17 = substr($y17,6001,1500);
$ainhalt06a17 = substr($y17,7501,1500);
$ainhalt07a17 = substr($y17,9001,1500);
$ainhalt08a17 = substr($y17,10501,1500);
$ainhalt09a17 = substr($y17,12001,1500);


open (FULL18, "1/18.txt") || die "Datei1 nicht gefunden\n";
@FUELLER18 = <FULL18>;
close (FULL18);
$y18 = @FUELLER18[0];
$ainhalt01a18 = substr($y18,0,1500);
$ainhalt02a18 = substr($y18,1501,1500);
$ainhalt03a18 = substr($y18,3001,1500);
$ainhalt04a18 = substr($y18,4501,1500);
$ainhalt05a18 = substr($y18,6001,1500);
$ainhalt06a18 = substr($y18,7501,1500);
$ainhalt07a18 = substr($y18,9001,1500);
$ainhalt08a18 = substr($y18,10501,1500);
$ainhalt09a18 = substr($y18,12001,1500);


open (FULL19, "1/19.txt") || die "Datei1 nicht gefunden\n";
@FUELLER19 = <FULL19>;
close (FULL19);
$y19 = @FUELLER19[0];
$ainhalt01a19 = substr($y19,0,1500);
$ainhalt02a19 = substr($y19,1501,1500);
$ainhalt03a19 = substr($y19,3001,1500);
$ainhalt04a19 = substr($y19,4501,1500);
$ainhalt05a19 = substr($y19,6001,1500);
$ainhalt06a19 = substr($y19,7501,1500);
$ainhalt07a19 = substr($y19,9001,1500);
$ainhalt08a19 = substr($y19,10501,1500);
$ainhalt09a19 = substr($y19,12001,1500);


open (FULL20, "1/20.txt") || die "Datei1 nicht gefunden\n";
@FUELLER20 = <FULL20>;
close (FULL20);
$y20 = @FUELLER20[0];
$ainhalt01a20 = substr($y20,0,1500);
$ainhalt02a20 = substr($y20,1501,1500);
$ainhalt03a20 = substr($y20,3001,1500);
$ainhalt04a20 = substr($y20,4501,1500);
$ainhalt05a20 = substr($y20,6001,1500);
$ainhalt06a20 = substr($y20,7501,1500);
$ainhalt07a20 = substr($y20,9001,1500);
$ainhalt08a20 = substr($y20,10501,1500);
$ainhalt09a20 = substr($y20,12001,1500);


open (FULL21, "1/21.txt") || die "Datei1 nicht gefunden\n";
@FUELLER21 = <FULL21>;
close (FULL21);
$y21 = @FUELLER21[0];
$ainhalt01a21 = substr($y21,0,1500);
$ainhalt02a21 = substr($y21,1501,1500);
$ainhalt03a21 = substr($y21,3001,1500);
$ainhalt04a21 = substr($y21,4501,1500);
$ainhalt05a21 = substr($y21,6001,1500);
$ainhalt06a21 = substr($y21,7501,1500);
$ainhalt07a21 = substr($y21,9001,1500);
$ainhalt08a21 = substr($y21,10501,1500);
$ainhalt09a21 = substr($y21,12001,1500);


open (FULL22, "1/22.txt") || die "Datei1 nicht gefunden\n";
@FUELLER22 = <FULL22>;
close (FULL22);
$y22 = @FUELLER22[0];
$ainhalt01a22 = substr($y22,0,1500);
$ainhalt02a22 = substr($y22,1501,1500);
$ainhalt03a22 = substr($y22,3001,1500);
$ainhalt04a22 = substr($y22,4501,1500);
$ainhalt05a22 = substr($y22,6001,1500);
$ainhalt06a22 = substr($y22,7501,1500);
$ainhalt07a22 = substr($y22,9001,1500);
$ainhalt08a22 = substr($y22,10501,1500);
$ainhalt09a22 = substr($y22,12001,1500);


open (FULL23, "1/23.txt") || die "Datei1 nicht gefunden\n";
@FUELLER23 = <FULL23>;
close (FULL23);
$y23 = @FUELLER23[0];
$ainhalt01a23 = substr($y23,0,1500);
$ainhalt02a23 = substr($y23,1501,1500);
$ainhalt03a23 = substr($y23,3001,1500);
$ainhalt04a23 = substr($y23,4501,1500);
$ainhalt05a23 = substr($y23,6001,1500);
$ainhalt06a23 = substr($y23,7501,1500);
$ainhalt07a23 = substr($y23,9001,1500);
$ainhalt08a23 = substr($y23,10501,1500);
$ainhalt09a23 = substr($y23,12001,1500);


open (FULL24, "1/24.txt") || die "Datei1 nicht gefunden\n";
@FUELLER24 = <FULL24>;
close (FULL24);
$y24 = @FUELLER24[0];
$ainhalt01a24 = substr($y24,0,1500);
$ainhalt02a24 = substr($y24,1501,1500);
$ainhalt03a24 = substr($y24,3001,1500);
$ainhalt04a24 = substr($y24,4501,1500);
$ainhalt05a24 = substr($y24,6001,1500);
$ainhalt06a24 = substr($y24,7501,1500);
$ainhalt07a24 = substr($y24,9001,1500);
$ainhalt08a24 = substr($y24,10501,1500);
$ainhalt09a24 = substr($y24,12001,1500);


open (FULL25, "1/25.txt") || die "Datei1 nicht gefunden\n";
@FUELLER25 = <FULL25>;
close (FULL25);
$y25 = @FUELLER25[0];
$ainhalt01a25 = substr($y25,0,1500);
$ainhalt02a25 = substr($y25,1501,1500);
$ainhalt03a25 = substr($y25,3001,1500);
$ainhalt04a25 = substr($y25,4501,1500);
$ainhalt05a25 = substr($y25,6001,1500);
$ainhalt06a25 = substr($y25,7501,1500);
$ainhalt07a25 = substr($y25,9001,1500);
$ainhalt08a25 = substr($y25,10501,1500);
$ainhalt09a25 = substr($y25,12001,1500);


open (FULL26, "1/26.txt") || die "Datei1 nicht gefunden\n";
@FUELLER26 = <FULL26>;
close (FULL26);
$y26 = @FUELLER26[0];
$ainhalt01a26 = substr($y26,0,1500);
$ainhalt02a26 = substr($y26,1501,1500);
$ainhalt03a26 = substr($y26,3001,1500);
$ainhalt04a26 = substr($y26,4501,1500);
$ainhalt05a26 = substr($y26,6001,1500);
$ainhalt06a26 = substr($y26,7501,1500);
$ainhalt07a26 = substr($y26,9001,1500);
$ainhalt08a26 = substr($y26,10501,1500);
$ainhalt09a26 = substr($y26,12001,1500);


open (FULL27, "1/27.txt") || die "Datei1 nicht gefunden\n";
@FUELLER27 = <FULL27>;
close (FULL27);
$y27 = @FUELLER27[0];
$ainhalt01a27 = substr($y27,0,1500);
$ainhalt02a27 = substr($y27,1501,1500);
$ainhalt03a27 = substr($y27,3001,1500);
$ainhalt04a27 = substr($y27,4501,1500);
$ainhalt05a27 = substr($y27,6001,1500);
$ainhalt06a27 = substr($y27,7501,1500);
$ainhalt07a27 = substr($y27,9001,1500);
$ainhalt08a27 = substr($y27,10501,1500);
$ainhalt09a27 = substr($y27,12001,1500);


open (FULL28, "1/28.txt") || die "Datei1 nicht gefunden\n";
@FUELLER28 = <FULL28>;
close (FULL28);
$y28 = @FUELLER28[0];
$ainhalt01a28 = substr($y28,0,1500);
$ainhalt02a28 = substr($y28,1501,1500);
$ainhalt03a28 = substr($y28,3001,1500);
$ainhalt04a28 = substr($y28,4501,1500);
$ainhalt05a28 = substr($y28,6001,1500);
$ainhalt06a28 = substr($y28,7501,1500);
$ainhalt07a28 = substr($y28,9001,1500);
$ainhalt08a28 = substr($y28,10501,1500);
$ainhalt09a28 = substr($y28,12001,1500);


open (FULL29, "1/29.txt") || die "Datei1 nicht gefunden\n";
@FUELLER29 = <FULL29>;
close (FULL29);
$y29 = @FUELLER29[0];
$ainhalt01a29 = substr($y29,0,1500);
$ainhalt02a29 = substr($y29,1501,1500);
$ainhalt03a29 = substr($y29,3001,1500);
$ainhalt04a29 = substr($y29,4501,1500);
$ainhalt05a29 = substr($y29,6001,1500);
$ainhalt06a29 = substr($y29,7501,1500);
$ainhalt07a29 = substr($y29,9001,1500);
$ainhalt08a29 = substr($y29,10501,1500);
$ainhalt09a29 = substr($y29,12001,1500);


open (FULL30, "1/30.txt") || die "Datei1 nicht gefunden\n";
@FUELLER30 = <FULL30>;
close (FULL30);
$y30 = @FUELLER30[0];
$ainhalt01a30 = substr($y30,0,1500);
$ainhalt02a30 = substr($y30,1501,1500);
$ainhalt03a30 = substr($y30,3001,1500);
$ainhalt04a30 = substr($y30,4501,1500);
$ainhalt05a30 = substr($y30,6001,1500);
$ainhalt06a30 = substr($y30,7501,1500);
$ainhalt07a30 = substr($y30,9001,1500);
$ainhalt08a30 = substr($y30,10501,1500);
$ainhalt09a30 = substr($y30,12001,1500);


open (FULL31, "1/31.txt") || die "Datei1 nicht gefunden\n";
@FUELLER31 = <FULL31>;
close (FULL31);
$y31 = @FUELLER31[0];
$ainhalt01a31 = substr($y31,0,1500);
$ainhalt02a31 = substr($y31,1501,1500);
$ainhalt03a31 = substr($y31,3001,1500);
$ainhalt04a31 = substr($y31,4501,1500);
$ainhalt05a31 = substr($y31,6001,1500);
$ainhalt06a31 = substr($y31,7501,1500);
$ainhalt07a31 = substr($y31,9001,1500);
$ainhalt08a31 = substr($y31,10501,1500);
$ainhalt09a31 = substr($y31,12001,1500);


open (FULL32, "1/32.txt") || die "Datei1 nicht gefunden\n";
@FUELLER32 = <FULL32>;
close (FULL32);
$y32 = @FUELLER32[0];
$ainhalt01a32 = substr($y32,0,1500);
$ainhalt02a32 = substr($y32,1501,1500);
$ainhalt03a32 = substr($y32,3001,1500);
$ainhalt04a32 = substr($y32,4501,1500);
$ainhalt05a32 = substr($y32,6001,1500);
$ainhalt06a32 = substr($y32,7501,1500);
$ainhalt07a32 = substr($y32,9001,1500);
$ainhalt08a32 = substr($y32,10501,1500);
$ainhalt09a32 = substr($y32,12001,1500);


open (FULL33, "1/33.txt") || die "Datei1 nicht gefunden\n";
@FUELLER33 = <FULL33>;
close (FULL33);
$y33 = @FUELLER33[0];
$ainhalt01a33 = substr($y33,0,1500);
$ainhalt02a33 = substr($y33,1501,1500);
$ainhalt03a33 = substr($y33,3001,1500);
$ainhalt04a33 = substr($y33,4501,1500);
$ainhalt05a33 = substr($y33,6001,1500);
$ainhalt06a33 = substr($y33,7501,1500);
$ainhalt07a33 = substr($y33,9001,1500);
$ainhalt08a33 = substr($y33,10501,1500);
$ainhalt09a33 = substr($y33,12001,1500);


open (FULL34, "1/34.txt") || die "Datei1 nicht gefunden\n";
@FUELLER34 = <FULL34>;
close (FULL34);
$y34 = @FUELLER34[0];
$ainhalt01a34 = substr($y34,0,1500);
$ainhalt02a34 = substr($y34,1501,1500);
$ainhalt03a34 = substr($y34,3001,1500);
$ainhalt04a34 = substr($y34,4501,1500);
$ainhalt05a34 = substr($y34,6001,1500);
$ainhalt06a34 = substr($y34,7501,1500);
$ainhalt07a34 = substr($y34,9001,1500);
$ainhalt08a34 = substr($y34,10501,1500);
$ainhalt09a34 = substr($y34,12001,1500);


open (FULL35, "1/35.txt") || die "Datei1 nicht gefunden\n";
@FUELLER35 = <FULL35>;
close (FULL35);
$y35 = @FUELLER35[0];
$ainhalt01a35 = substr($y35,0,1500);
$ainhalt02a35 = substr($y35,1501,1500);
$ainhalt03a35 = substr($y35,3001,1500);
$ainhalt04a35 = substr($y35,4501,1500);
$ainhalt05a35 = substr($y35,6001,1500);
$ainhalt06a35 = substr($y35,7501,1500);
$ainhalt07a35 = substr($y35,9001,1500);
$ainhalt08a35 = substr($y35,10501,1500);
$ainhalt09a35 = substr($y35,12001,1500);


open (FULL36, "1/36.txt") || die "Datei1 nicht gefunden\n";
@FUELLER36 = <FULL36>;
close (FULL36);
$y36 = @FUELLER36[0];
$ainhalt01a36 = substr($y36,0,1500);
$ainhalt02a36 = substr($y36,1501,1500);
$ainhalt03a36 = substr($y36,3001,1500);
$ainhalt04a36 = substr($y36,4501,1500);
$ainhalt05a36 = substr($y36,6001,1500);
$ainhalt06a36 = substr($y36,7501,1500);
$ainhalt07a36 = substr($y36,9001,1500);
$ainhalt08a36 = substr($y36,10501,1500);
$ainhalt09a36 = substr($y36,12001,1500);


open (BFULL1, "2/1.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER1 = <BFULL1>;
close (BFULL1);
$yb1 = @BFUELLER1[0];
$binhalt01a1 = substr($yb1,0,1500);
$binhalt02a1 = substr($yb1,1501,1500);
$binhalt03a1 = substr($yb1,3001,1500);
$binhalt04a1 = substr($yb1,4501,1500);
$binhalt05a1 = substr($yb1,6001,1500);
$binhalt06a1 = substr($yb1,7501,1500);
$binhalt07a1 = substr($yb1,9001,1500);
$binhalt08a1 = substr($yb1,10501,1500);
$binhalt09a1 = substr($yb1,12001,1500);


open (BFULL2, "2/2.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER2 = <BFULL2>;
close (BFULL2);
$yb2 = @BFUELLER2[0];
$binhalt01a2 = substr($yb2,0,1500);
$binhalt02a2 = substr($yb2,1501,1500);
$binhalt03a2 = substr($yb2,3001,1500);
$binhalt04a2 = substr($yb2,4501,1500);
$binhalt05a2 = substr($yb2,6001,1500);
$binhalt06a2 = substr($yb2,7501,1500);
$binhalt07a2 = substr($yb2,9001,1500);
$binhalt08a2 = substr($yb2,10501,1500);
$binhalt09a2 = substr($yb2,12001,1500);


open (BFULL3, "2/3.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER3 = <BFULL3>;
close (BFULL3);
$yb3 = @BFUELLER3[0];
$binhalt01a3 = substr($yb3,0,1500);
$binhalt02a3 = substr($yb3,1501,1500);
$binhalt03a3 = substr($yb3,3001,1500);
$binhalt04a3 = substr($yb3,4501,1500);
$binhalt05a3 = substr($yb3,6001,1500);
$binhalt06a3 = substr($yb3,7501,1500);
$binhalt07a3 = substr($yb3,9001,1500);
$binhalt08a3 = substr($yb3,10501,1500);
$binhalt09a3 = substr($yb3,12001,1500);


open (BFULL4, "2/4.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER4 = <BFULL4>;
close (BFULL4);
$yb4 = @BFUELLER4[0];
$binhalt01a4 = substr($yb4,0,1500);
$binhalt02a4 = substr($yb4,1501,1500);
$binhalt03a4 = substr($yb4,3001,1500);
$binhalt04a4 = substr($yb4,4501,1500);
$binhalt05a4 = substr($yb4,6001,1500);
$binhalt06a4 = substr($yb4,7501,1500);
$binhalt07a4 = substr($yb4,9001,1500);
$binhalt08a4 = substr($yb4,10501,1500);
$binhalt09a4 = substr($yb4,12001,1500);


open (BFULL5, "2/5.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER5 = <BFULL5>;
close (BFULL5);
$yb5 = @BFUELLER5[0];
$binhalt01a5 = substr($yb5,0,1500);
$binhalt02a5 = substr($yb5,1501,1500);
$binhalt03a5 = substr($yb5,3001,1500);
$binhalt04a5 = substr($yb5,4501,1500);
$binhalt05a5 = substr($yb5,6001,1500);
$binhalt06a5 = substr($yb5,7501,1500);
$binhalt07a5 = substr($yb5,9001,1500);
$binhalt08a5 = substr($yb5,10501,1500);
$binhalt09a5 = substr($yb5,12001,1500);


open (BFULL6, "2/6.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER6 = <BFULL6>;
close (BFULL6);
$yb6 = @BFUELLER6[0];
$binhalt01a6 = substr($yb6,0,1500);
$binhalt02a6 = substr($yb6,1501,1500);
$binhalt03a6 = substr($yb6,3001,1500);
$binhalt04a6 = substr($yb6,4501,1500);
$binhalt05a6 = substr($yb6,6001,1500);
$binhalt06a6 = substr($yb6,7501,1500);
$binhalt07a6 = substr($yb6,9001,1500);
$binhalt08a6 = substr($yb6,10501,1500);
$binhalt09a6 = substr($yb6,12001,1500);


open (BFULL7, "2/7.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER7 = <BFULL7>;
close (BFULL7);
$yb7 = @BFUELLER7[0];
$binhalt01a7 = substr($yb7,0,1500);
$binhalt02a7 = substr($yb7,1501,1500);
$binhalt03a7 = substr($yb7,3001,1500);
$binhalt04a7 = substr($yb7,4501,1500);
$binhalt05a7 = substr($yb7,6001,1500);
$binhalt06a7 = substr($yb7,7501,1500);
$binhalt07a7 = substr($yb7,9001,1500);
$binhalt08a7 = substr($yb7,10501,1500);
$binhalt09a7 = substr($yb7,12001,1500);


open (BFULL8, "2/8.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER8 = <BFULL8>;
close (BFULL8);
$yb8 = @BFUELLER8[0];
$binhalt01a8 = substr($yb8,0,1500);
$binhalt02a8 = substr($yb8,1501,1500);
$binhalt03a8 = substr($yb8,3001,1500);
$binhalt04a8 = substr($yb8,4501,1500);
$binhalt05a8 = substr($yb8,6001,1500);
$binhalt06a8 = substr($yb8,7501,1500);
$binhalt07a8 = substr($yb8,9001,1500);
$binhalt08a8 = substr($yb8,10501,1500);
$binhalt09a8 = substr($yb8,12001,1500);


open (BFULL9, "2/9.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER9 = <BFULL9>;
close (BFULL9);
$yb9 = @BFUELLER9[0];
$binhalt01a9 = substr($yb9,0,1500);
$binhalt02a9 = substr($yb9,1501,1500);
$binhalt03a9 = substr($yb9,3001,1500);
$binhalt04a9 = substr($yb9,4501,1500);
$binhalt05a9 = substr($yb9,6001,1500);
$binhalt06a9 = substr($yb9,7501,1500);
$binhalt07a9 = substr($yb9,9001,1500);
$binhalt08a9 = substr($yb9,10501,1500);
$binhalt09a9 = substr($yb9,12001,1500);


open (BFULL10, "2/10.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER10 = <BFULL10>;
close (BFULL10);
$yb10 = @BFUELLER10[0];
$binhalt01a10 = substr($yb10,0,1500);
$binhalt02a10 = substr($yb10,1501,1500);
$binhalt03a10 = substr($yb10,3001,1500);
$binhalt04a10 = substr($yb10,4501,1500);
$binhalt05a10 = substr($yb10,6001,1500);
$binhalt06a10 = substr($yb10,7501,1500);
$binhalt07a10 = substr($yb10,9001,1500);
$binhalt08a10 = substr($yb10,10501,1500);
$binhalt09a10 = substr($yb10,12001,1500);


open (BFULL11, "2/11.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER11 = <BFULL11>;
close (BFULL11);
$yb11 = @BFUELLER11[0];
$binhalt01a11 = substr($yb11,0,1500);
$binhalt02a11 = substr($yb11,1501,1500);
$binhalt03a11 = substr($yb11,3001,1500);
$binhalt04a11 = substr($yb11,4501,1500);
$binhalt05a11 = substr($yb11,6001,1500);
$binhalt06a11 = substr($yb11,7501,1500);
$binhalt07a11 = substr($yb11,9001,1500);
$binhalt08a11 = substr($yb11,10501,1500);
$binhalt09a11 = substr($yb11,12001,1500);


open (BFULL12, "2/12.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER12 = <BFULL12>;
close (BFULL12);
$yb12 = @BFUELLER12[0];
$binhalt01a12 = substr($yb12,0,1500);
$binhalt02a12 = substr($yb12,1501,1500);
$binhalt03a12 = substr($yb12,3001,1500);
$binhalt04a12 = substr($yb12,4501,1500);
$binhalt05a12 = substr($yb12,6001,1500);
$binhalt06a12 = substr($yb12,7501,1500);
$binhalt07a12 = substr($yb12,9001,1500);
$binhalt08a12 = substr($yb12,10501,1500);
$binhalt09a12 = substr($yb12,12001,1500);


open (BFULL13, "2/13.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER13 = <BFULL13>;
close (BFULL13);
$yb13 = @BFUELLER13[0];
$binhalt01a13 = substr($yb13,0,1500);
$binhalt02a13 = substr($yb13,1501,1500);
$binhalt03a13 = substr($yb13,3001,1500);
$binhalt04a13 = substr($yb13,4501,1500);
$binhalt05a13 = substr($yb13,6001,1500);
$binhalt06a13 = substr($yb13,7501,1500);
$binhalt07a13 = substr($yb13,9001,1500);
$binhalt08a13 = substr($yb13,10501,1500);
$binhalt09a13 = substr($yb13,12001,1500);


open (BFULL14, "2/14.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER14 = <BFULL14>;
close (BFULL14);
$yb14 = @BFUELLER14[0];
$binhalt01a14 = substr($yb14,0,1500);
$binhalt02a14 = substr($yb14,1501,1500);
$binhalt03a14 = substr($yb14,3001,1500);
$binhalt04a14 = substr($yb14,4501,1500);
$binhalt05a14 = substr($yb14,6001,1500);
$binhalt06a14 = substr($yb14,7501,1500);
$binhalt07a14 = substr($yb14,9001,1500);
$binhalt08a14 = substr($yb14,10501,1500);
$binhalt09a14 = substr($yb14,12001,1500);


open (BFULL15, "2/15.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER15 = <BFULL15>;
close (BFULL15);
$yb15 = @BFUELLER15[0];
$binhalt01a15 = substr($yb15,0,1500);
$binhalt02a15 = substr($yb15,1501,1500);
$binhalt03a15 = substr($yb15,3001,1500);
$binhalt04a15 = substr($yb15,4501,1500);
$binhalt05a15 = substr($yb15,6001,1500);
$binhalt06a15 = substr($yb15,7501,1500);
$binhalt07a15 = substr($yb15,9001,1500);
$binhalt08a15 = substr($yb15,10501,1500);
$binhalt09a15 = substr($yb15,12001,1500);


open (BFULL16, "2/16.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER16 = <BFULL16>;
close (BFULL16);
$yb16 = @BFUELLER16[0];
$binhalt01a16 = substr($yb16,0,1500);
$binhalt02a16 = substr($yb16,1501,1500);
$binhalt03a16 = substr($yb16,3001,1500);
$binhalt04a16 = substr($yb16,4501,1500);
$binhalt05a16 = substr($yb16,6001,1500);
$binhalt06a16 = substr($yb16,7501,1500);
$binhalt07a16 = substr($yb16,9001,1500);
$binhalt08a16 = substr($yb16,10501,1500);
$binhalt09a16 = substr($yb16,12001,1500);


open (BFULL17, "2/17.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER17 = <BFULL17>;
close (BFULL17);
$yb17 = @BFUELLER17[0];
$binhalt01a17 = substr($yb17,0,1500);
$binhalt02a17 = substr($yb17,1501,1500);
$binhalt03a17 = substr($yb17,3001,1500);
$binhalt04a17 = substr($yb17,4501,1500);
$binhalt05a17 = substr($yb17,6001,1500);
$binhalt06a17 = substr($yb17,7501,1500);
$binhalt07a17 = substr($yb17,9001,1500);
$binhalt08a17 = substr($yb17,10501,1500);
$binhalt09a17 = substr($yb17,12001,1500);


open (BFULL18, "2/18.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER18 = <BFULL18>;
close (BFULL18);
$yb18 = @BFUELLER18[0];
$binhalt01a18 = substr($yb18,0,1500);
$binhalt02a18 = substr($yb18,1501,1500);
$binhalt03a18 = substr($yb18,3001,1500);
$binhalt04a18 = substr($yb18,4501,1500);
$binhalt05a18 = substr($yb18,6001,1500);
$binhalt06a18 = substr($yb18,7501,1500);
$binhalt07a18 = substr($yb18,9001,1500);
$binhalt08a18 = substr($yb18,10501,1500);
$binhalt09a18 = substr($yb18,12001,1500);


open (BFULL19, "2/19.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER19 = <BFULL19>;
close (BFULL19);
$yb19 = @BFUELLER19[0];
$binhalt01a19 = substr($yb19,0,1500);
$binhalt02a19 = substr($yb19,1501,1500);
$binhalt03a19 = substr($yb19,3001,1500);
$binhalt04a19 = substr($yb19,4501,1500);
$binhalt05a19 = substr($yb19,6001,1500);
$binhalt06a19 = substr($yb19,7501,1500);
$binhalt07a19 = substr($yb19,9001,1500);
$binhalt08a19 = substr($yb19,10501,1500);
$binhalt09a19 = substr($yb19,12001,1500);


open (BFULL20, "2/20.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER20 = <BFULL20>;
close (BFULL20);
$yb20 = @BFUELLER20[0];
$binhalt01a20 = substr($yb20,0,1500);
$binhalt02a20 = substr($yb20,1501,1500);
$binhalt03a20 = substr($yb20,3001,1500);
$binhalt04a20 = substr($yb20,4501,1500);
$binhalt05a20 = substr($yb20,6001,1500);
$binhalt06a20 = substr($yb20,7501,1500);
$binhalt07a20 = substr($yb20,9001,1500);
$binhalt08a20 = substr($yb20,10501,1500);
$binhalt09a20 = substr($yb20,12001,1500);


open (BFULL21, "2/21.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER21 = <BFULL21>;
close (BFULL21);
$yb21 = @BFUELLER21[0];
$binhalt01a21 = substr($yb21,0,1500);
$binhalt02a21 = substr($yb21,1501,1500);
$binhalt03a21 = substr($yb21,3001,1500);
$binhalt04a21 = substr($yb21,4501,1500);
$binhalt05a21 = substr($yb21,6001,1500);
$binhalt06a21 = substr($yb21,7501,1500);
$binhalt07a21 = substr($yb21,9001,1500);
$binhalt08a21 = substr($yb21,10501,1500);
$binhalt09a21 = substr($yb21,12001,1500);


open (BFULL22, "2/22.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER22 = <BFULL22>;
close (BFULL22);
$yb22 = @BFUELLER22[0];
$binhalt01a22 = substr($yb22,0,1500);
$binhalt02a22 = substr($yb22,1501,1500);
$binhalt03a22 = substr($yb22,3001,1500);
$binhalt04a22 = substr($yb22,4501,1500);
$binhalt05a22 = substr($yb22,6001,1500);
$binhalt06a22 = substr($yb22,7501,1500);
$binhalt07a22 = substr($yb22,9001,1500);
$binhalt08a22 = substr($yb22,10501,1500);
$binhalt09a22 = substr($yb22,12001,1500);


open (BFULL23, "2/23.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER23 = <BFULL23>;
close (BFULL23);
$yb23 = @BFUELLER23[0];
$binhalt01a23 = substr($yb23,0,1500);
$binhalt02a23 = substr($yb23,1501,1500);
$binhalt03a23 = substr($yb23,3001,1500);
$binhalt04a23 = substr($yb23,4501,1500);
$binhalt05a23 = substr($yb23,6001,1500);
$binhalt06a23 = substr($yb23,7501,1500);
$binhalt07a23 = substr($yb23,9001,1500);
$binhalt08a23 = substr($yb23,10501,1500);
$binhalt09a23 = substr($yb23,12001,1500);


open (BFULL24, "2/24.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER24 = <BFULL24>;
close (BFULL24);
$yb24 = @BFUELLER24[0];
$binhalt01a24 = substr($yb24,0,1500);
$binhalt02a24 = substr($yb24,1501,1500);
$binhalt03a24 = substr($yb24,3001,1500);
$binhalt04a24 = substr($yb24,4501,1500);
$binhalt05a24 = substr($yb24,6001,1500);
$binhalt06a24 = substr($yb24,7501,1500);
$binhalt07a24 = substr($yb24,9001,1500);
$binhalt08a24 = substr($yb24,10501,1500);
$binhalt09a24 = substr($yb24,12001,1500);


open (BFULL25, "2/25.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER25 = <BFULL25>;
close (BFULL25);
$yb25 = @BFUELLER25[0];
$binhalt01a25 = substr($yb25,0,1500);
$binhalt02a25 = substr($yb25,1501,1500);
$binhalt03a25 = substr($yb25,3001,1500);
$binhalt04a25 = substr($yb25,4501,1500);
$binhalt05a25 = substr($yb25,6001,1500);
$binhalt06a25 = substr($yb25,7501,1500);
$binhalt07a25 = substr($yb25,9001,1500);
$binhalt08a25 = substr($yb25,10501,1500);
$binhalt09a25 = substr($yb25,12001,1500);


open (BFULL26, "2/26.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER26 = <BFULL26>;
close (BFULL26);
$yb26 = @BFUELLER26[0];
$binhalt01a26 = substr($yb26,0,1500);
$binhalt02a26 = substr($yb26,1501,1500);
$binhalt03a26 = substr($yb26,3001,1500);
$binhalt04a26 = substr($yb26,4501,1500);
$binhalt05a26 = substr($yb26,6001,1500);
$binhalt06a26 = substr($yb26,7501,1500);
$binhalt07a26 = substr($yb26,9001,1500);
$binhalt08a26 = substr($yb26,10501,1500);
$binhalt09a26 = substr($yb26,12001,1500);


open (BFULL27, "2/27.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER27 = <BFULL27>;
close (BFULL27);
$yb27 = @BFUELLER27[0];
$binhalt01a27 = substr($yb27,0,1500);
$binhalt02a27 = substr($yb27,1501,1500);
$binhalt03a27 = substr($yb27,3001,1500);
$binhalt04a27 = substr($yb27,4501,1500);
$binhalt05a27 = substr($yb27,6001,1500);
$binhalt06a27 = substr($yb27,7501,1500);
$binhalt07a27 = substr($yb27,9001,1500);
$binhalt08a27 = substr($yb27,10501,1500);
$binhalt09a27 = substr($yb27,12001,1500);


open (BFULL28, "2/28.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER28 = <BFULL28>;
close (BFULL28);
$yb28 = @BFUELLER28[0];
$binhalt01a28 = substr($yb28,0,1500);
$binhalt02a28 = substr($yb28,1501,1500);
$binhalt03a28 = substr($yb28,3001,1500);
$binhalt04a28 = substr($yb28,4501,1500);
$binhalt05a28 = substr($yb28,6001,1500);
$binhalt06a28 = substr($yb28,7501,1500);
$binhalt07a28 = substr($yb28,9001,1500);
$binhalt08a28 = substr($yb28,10501,1500);
$binhalt09a28 = substr($yb28,12001,1500);


open (BFULL29, "2/29.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER29 = <BFULL29>;
close (BFULL29);
$yb29 = @BFUELLER29[0];
$binhalt01a29 = substr($yb29,0,1500);
$binhalt02a29 = substr($yb29,1501,1500);
$binhalt03a29 = substr($yb29,3001,1500);
$binhalt04a29 = substr($yb29,4501,1500);
$binhalt05a29 = substr($yb29,6001,1500);
$binhalt06a29 = substr($yb29,7501,1500);
$binhalt07a29 = substr($yb29,9001,1500);
$binhalt08a29 = substr($yb29,10501,1500);
$binhalt09a29 = substr($yb29,12001,1500);


open (BFULL30, "2/30.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER30 = <BFULL30>;
close (BFULL30);
$yb30 = @BFUELLER30[0];
$binhalt01a30 = substr($yb30,0,1500);
$binhalt02a30 = substr($yb30,1501,1500);
$binhalt03a30 = substr($yb30,3001,1500);
$binhalt04a30 = substr($yb30,4501,1500);
$binhalt05a30 = substr($yb30,6001,1500);
$binhalt06a30 = substr($yb30,7501,1500);
$binhalt07a30 = substr($yb30,9001,1500);
$binhalt08a30 = substr($yb30,10501,1500);
$binhalt09a30 = substr($yb30,12001,1500);


open (BFULL31, "2/31.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER31 = <BFULL31>;
close (BFULL31);
$yb31 = @BFUELLER31[0];
$binhalt01a31 = substr($yb31,0,1500);
$binhalt02a31 = substr($yb31,1501,1500);
$binhalt03a31 = substr($yb31,3001,1500);
$binhalt04a31 = substr($yb31,4501,1500);
$binhalt05a31 = substr($yb31,6001,1500);
$binhalt06a31 = substr($yb31,7501,1500);
$binhalt07a31 = substr($yb31,9001,1500);
$binhalt08a31 = substr($yb31,10501,1500);
$binhalt09a31 = substr($yb31,12001,1500);


open (BFULL32, "2/32.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER32 = <BFULL32>;
close (BFULL32);
$yb32 = @BFUELLER32[0];
$binhalt01a32 = substr($yb32,0,1500);
$binhalt02a32 = substr($yb32,1501,1500);
$binhalt03a32 = substr($yb32,3001,1500);
$binhalt04a32 = substr($yb32,4501,1500);
$binhalt05a32 = substr($yb32,6001,1500);
$binhalt06a32 = substr($yb32,7501,1500);
$binhalt07a32 = substr($yb32,9001,1500);
$binhalt08a32 = substr($yb32,10501,1500);
$binhalt09a32 = substr($yb32,12001,1500);


open (BFULL33, "2/33.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER33 = <BFULL33>;
close (BFULL33);
$yb33 = @BFUELLER33[0];
$binhalt01a33 = substr($yb33,0,1500);
$binhalt02a33 = substr($yb33,1501,1500);
$binhalt03a33 = substr($yb33,3001,1500);
$binhalt04a33 = substr($yb33,4501,1500);
$binhalt05a33 = substr($yb33,6001,1500);
$binhalt06a33 = substr($yb33,7501,1500);
$binhalt07a33 = substr($yb33,9001,1500);
$binhalt08a33 = substr($yb33,10501,1500);
$binhalt09a33 = substr($yb33,12001,1500);


open (BFULL34, "2/34.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER34 = <BFULL34>;
close (BFULL34);
$yb34 = @BFUELLER34[0];
$binhalt01a34 = substr($yb34,0,1500);
$binhalt02a34 = substr($yb34,1501,1500);
$binhalt03a34 = substr($yb34,3001,1500);
$binhalt04a34 = substr($yb34,4501,1500);
$binhalt05a34 = substr($yb34,6001,1500);
$binhalt06a34 = substr($yb34,7501,1500);
$binhalt07a34 = substr($yb34,9001,1500);
$binhalt08a34 = substr($yb34,10501,1500);
$binhalt09a34 = substr($yb34,12001,1500);


open (BFULL35, "2/35.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER35 = <BFULL35>;
close (BFULL35);
$yb35 = @BFUELLER35[0];
$binhalt01a35 = substr($yb35,0,1500);
$binhalt02a35 = substr($yb35,1501,1500);
$binhalt03a35 = substr($yb35,3001,1500);
$binhalt04a35 = substr($yb35,4501,1500);
$binhalt05a35 = substr($yb35,6001,1500);
$binhalt06a35 = substr($yb35,7501,1500);
$binhalt07a35 = substr($yb35,9001,1500);
$binhalt08a35 = substr($yb35,10501,1500);
$binhalt09a35 = substr($yb35,12001,1500);


open (BFULL36, "2/36.txt") || die "Datei1 nicht gefunden\n";
@BFUELLER36 = <BFULL36>;
close (BFULL36);
$yb36 = @BFUELLER36[0];
$binhalt01a36 = substr($yb36,0,1500);
$binhalt02a36 = substr($yb36,1501,1500);
$binhalt03a36 = substr($yb36,3001,1500);
$binhalt04a36 = substr($yb36,4501,1500);
$binhalt05a36 = substr($yb36,6001,1500);
$binhalt06a36 = substr($yb36,7501,1500);
$binhalt07a36 = substr($yb36,9001,1500);
$binhalt08a36 = substr($yb36,10501,1500);
$binhalt09a36 = substr($yb36,12001,1500);


open (CFULL1, "3/1.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER1 = <CFULL1>;
close (CFULL1);
$yc1 = @CFUELLER1[0];
$cinhalt01a1 = substr($yc1,0,1500);
$cinhalt02a1 = substr($yc1,1501,1500);
$cinhalt03a1 = substr($yc1,3001,1500);
$cinhalt04a1 = substr($yc1,4501,1500);
$cinhalt05a1 = substr($yc1,6001,1500);
$cinhalt06a1 = substr($yc1,7501,1500);
$cinhalt07a1 = substr($yc1,9001,1500);
$cinhalt08a1 = substr($yc1,10501,1500);
$cinhalt09a1 = substr($yc1,12001,1500);


open (CFULL2, "3/2.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER2 = <CFULL2>;
close (CFULL2);
$yc2 = @CFUELLER2[0];
$cinhalt01a2 = substr($yc2,0,1500);
$cinhalt02a2 = substr($yc2,1501,1500);
$cinhalt03a2 = substr($yc2,3001,1500);
$cinhalt04a2 = substr($yc2,4501,1500);
$cinhalt05a2 = substr($yc2,6001,1500);
$cinhalt06a2 = substr($yc2,7501,1500);
$cinhalt07a2 = substr($yc2,9001,1500);
$cinhalt08a2 = substr($yc2,10501,1500);
$cinhalt09a2 = substr($yc2,12001,1500);


open (CFULL3, "3/3.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER3 = <CFULL3>;
close (CFULL3);
$yc3 = @CFUELLER3[0];
$cinhalt01a3 = substr($yc3,0,1500);
$cinhalt02a3 = substr($yc3,1501,1500);
$cinhalt03a3 = substr($yc3,3001,1500);
$cinhalt04a3 = substr($yc3,4501,1500);
$cinhalt05a3 = substr($yc3,6001,1500);
$cinhalt06a3 = substr($yc3,7501,1500);
$cinhalt07a3 = substr($yc3,9001,1500);
$cinhalt08a3 = substr($yc3,10501,1500);
$cinhalt09a3 = substr($yc3,12001,1500);


open (CFULL4, "3/4.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER4 = <CFULL4>;
close (CFULL4);
$yc4 = @CFUELLER4[0];
$cinhalt01a4 = substr($yc4,0,1500);
$cinhalt02a4 = substr($yc4,1501,1500);
$cinhalt03a4 = substr($yc4,3001,1500);
$cinhalt04a4 = substr($yc4,4501,1500);
$cinhalt05a4 = substr($yc4,6001,1500);
$cinhalt06a4 = substr($yc4,7501,1500);
$cinhalt07a4 = substr($yc4,9001,1500);
$cinhalt08a4 = substr($yc4,10501,1500);
$cinhalt09a4 = substr($yc4,12001,1500);


open (CFULL5, "3/5.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER5 = <CFULL5>;
close (CFULL5);
$yc5 = @CFUELLER5[0];
$cinhalt01a5 = substr($yc5,0,1500);
$cinhalt02a5 = substr($yc5,1501,1500);
$cinhalt03a5 = substr($yc5,3001,1500);
$cinhalt04a5 = substr($yc5,4501,1500);
$cinhalt05a5 = substr($yc5,6001,1500);
$cinhalt06a5 = substr($yc5,7501,1500);
$cinhalt07a5 = substr($yc5,9001,1500);
$cinhalt08a5 = substr($yc5,10501,1500);
$cinhalt09a5 = substr($yc5,12001,1500);


open (CFULL6, "3/6.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER6 = <CFULL6>;
close (CFULL6);
$yc6 = @CFUELLER6[0];
$cinhalt01a6 = substr($yc6,0,1500);
$cinhalt02a6 = substr($yc6,1501,1500);
$cinhalt03a6 = substr($yc6,3001,1500);
$cinhalt04a6 = substr($yc6,4501,1500);
$cinhalt05a6 = substr($yc6,6001,1500);
$cinhalt06a6 = substr($yc6,7501,1500);
$cinhalt07a6 = substr($yc6,9001,1500);
$cinhalt08a6 = substr($yc6,10501,1500);
$cinhalt09a6 = substr($yc6,12001,1500);


open (CFULL7, "3/7.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER7 = <CFULL7>;
close (CFULL7);
$yc7 = @CFUELLER7[0];
$cinhalt01a7 = substr($yc7,0,1500);
$cinhalt02a7 = substr($yc7,1501,1500);
$cinhalt03a7 = substr($yc7,3001,1500);
$cinhalt04a7 = substr($yc7,4501,1500);
$cinhalt05a7 = substr($yc7,6001,1500);
$cinhalt06a7 = substr($yc7,7501,1500);
$cinhalt07a7 = substr($yc7,9001,1500);
$cinhalt08a7 = substr($yc7,10501,1500);
$cinhalt09a7 = substr($yc7,12001,1500);


open (CFULL8, "3/8.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER8 = <CFULL8>;
close (CFULL8);
$yc8 = @CFUELLER8[0];
$cinhalt01a8 = substr($yc8,0,1500);
$cinhalt02a8 = substr($yc8,1501,1500);
$cinhalt03a8 = substr($yc8,3001,1500);
$cinhalt04a8 = substr($yc8,4501,1500);
$cinhalt05a8 = substr($yc8,6001,1500);
$cinhalt06a8 = substr($yc8,7501,1500);
$cinhalt07a8 = substr($yc8,9001,1500);
$cinhalt08a8 = substr($yc8,10501,1500);
$cinhalt09a8 = substr($yc8,12001,1500);


open (CFULL9, "3/9.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER9 = <CFULL9>;
close (CFULL9);
$yc9 = @CFUELLER9[0];
$cinhalt01a9 = substr($yc9,0,1500);
$cinhalt02a9 = substr($yc9,1501,1500);
$cinhalt03a9 = substr($yc9,3001,1500);
$cinhalt04a9 = substr($yc9,4501,1500);
$cinhalt05a9 = substr($yc9,6001,1500);
$cinhalt06a9 = substr($yc9,7501,1500);
$cinhalt07a9 = substr($yc9,9001,1500);
$cinhalt08a9 = substr($yc9,10501,1500);
$cinhalt09a9 = substr($yc9,12001,1500);


open (CFULL10, "3/10.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER10 = <CFULL10>;
close (CFULL10);
$yc10 = @CFUELLER10[0];
$cinhalt01a10 = substr($yc10,0,1500);
$cinhalt02a10 = substr($yc10,1501,1500);
$cinhalt03a10 = substr($yc10,3001,1500);
$cinhalt04a10 = substr($yc10,4501,1500);
$cinhalt05a10 = substr($yc10,6001,1500);
$cinhalt06a10 = substr($yc10,7501,1500);
$cinhalt07a10 = substr($yc10,9001,1500);
$cinhalt08a10 = substr($yc10,10501,1500);
$cinhalt09a10 = substr($yc10,12001,1500);


open (CFULL11, "3/11.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER11 = <CFULL11>;
close (CFULL11);
$yc11 = @CFUELLER11[0];
$cinhalt01a11 = substr($yc11,0,1500);
$cinhalt02a11 = substr($yc11,1501,1500);
$cinhalt03a11 = substr($yc11,3001,1500);
$cinhalt04a11 = substr($yc11,4501,1500);
$cinhalt05a11 = substr($yc11,6001,1500);
$cinhalt06a11 = substr($yc11,7501,1500);
$cinhalt07a11 = substr($yc11,9001,1500);
$cinhalt08a11 = substr($yc11,10501,1500);
$cinhalt09a11 = substr($yc11,12001,1500);


open (CFULL12, "3/12.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER12 = <CFULL12>;
close (CFULL12);
$yc12 = @CFUELLER12[0];
$cinhalt01a12 = substr($yc12,0,1500);
$cinhalt02a12 = substr($yc12,1501,1500);
$cinhalt03a12 = substr($yc12,3001,1500);
$cinhalt04a12 = substr($yc12,4501,1500);
$cinhalt05a12 = substr($yc12,6001,1500);
$cinhalt06a12 = substr($yc12,7501,1500);
$cinhalt07a12 = substr($yc12,9001,1500);
$cinhalt08a12 = substr($yc12,10501,1500);
$cinhalt09a12 = substr($yc12,12001,1500);


open (CFULL13, "3/13.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER13 = <CFULL13>;
close (CFULL13);
$yc13 = @CFUELLER13[0];
$cinhalt01a13 = substr($yc13,0,1500);
$cinhalt02a13 = substr($yc13,1501,1500);
$cinhalt03a13 = substr($yc13,3001,1500);
$cinhalt04a13 = substr($yc13,4501,1500);
$cinhalt05a13 = substr($yc13,6001,1500);
$cinhalt06a13 = substr($yc13,7501,1500);
$cinhalt07a13 = substr($yc13,9001,1500);
$cinhalt08a13 = substr($yc13,10501,1500);
$cinhalt09a13 = substr($yc13,12001,1500);


open (CFULL14, "3/14.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER14 = <CFULL14>;
close (CFULL14);
$yc14 = @CFUELLER14[0];
$cinhalt01a14 = substr($yc14,0,1500);
$cinhalt02a14 = substr($yc14,1501,1500);
$cinhalt03a14 = substr($yc14,3001,1500);
$cinhalt04a14 = substr($yc14,4501,1500);
$cinhalt05a14 = substr($yc14,6001,1500);
$cinhalt06a14 = substr($yc14,7501,1500);
$cinhalt07a14 = substr($yc14,9001,1500);
$cinhalt08a14 = substr($yc14,10501,1500);
$cinhalt09a14 = substr($yc14,12001,1500);


open (CFULL15, "3/15.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER15 = <CFULL15>;
close (CFULL15);
$yc15 = @CFUELLER15[0];
$cinhalt01a15 = substr($yc15,0,1500);
$cinhalt02a15 = substr($yc15,1501,1500);
$cinhalt03a15 = substr($yc15,3001,1500);
$cinhalt04a15 = substr($yc15,4501,1500);
$cinhalt05a15 = substr($yc15,6001,1500);
$cinhalt06a15 = substr($yc15,7501,1500);
$cinhalt07a15 = substr($yc15,9001,1500);
$cinhalt08a15 = substr($yc15,10501,1500);
$cinhalt09a15 = substr($yc15,12001,1500);


open (CFULL16, "3/16.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER16 = <CFULL16>;
close (CFULL16);
$yc16 = @CFUELLER16[0];
$cinhalt01a16 = substr($yc16,0,1500);
$cinhalt02a16 = substr($yc16,1501,1500);
$cinhalt03a16 = substr($yc16,3001,1500);
$cinhalt04a16 = substr($yc16,4501,1500);
$cinhalt05a16 = substr($yc16,6001,1500);
$cinhalt06a16 = substr($yc16,7501,1500);
$cinhalt07a16 = substr($yc16,9001,1500);
$cinhalt08a16 = substr($yc16,10501,1500);
$cinhalt09a16 = substr($yc16,12001,1500);


open (CFULL17, "3/17.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER17 = <CFULL17>;
close (CFULL17);
$yc17 = @CFUELLER17[0];
$cinhalt01a17 = substr($yc17,0,1500);
$cinhalt02a17 = substr($yc17,1501,1500);
$cinhalt03a17 = substr($yc17,3001,1500);
$cinhalt04a17 = substr($yc17,4501,1500);
$cinhalt05a17 = substr($yc17,6001,1500);
$cinhalt06a17 = substr($yc17,7501,1500);
$cinhalt07a17 = substr($yc17,9001,1500);
$cinhalt08a17 = substr($yc17,10501,1500);
$cinhalt09a17 = substr($yc17,12001,1500);


open (CFULL18, "3/18.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER18 = <CFULL18>;
close (CFULL18);
$yc18 = @CFUELLER18[0];
$cinhalt01a18 = substr($yc18,0,1500);
$cinhalt02a18 = substr($yc18,1501,1500);
$cinhalt03a18 = substr($yc18,3001,1500);
$cinhalt04a18 = substr($yc18,4501,1500);
$cinhalt05a18 = substr($yc18,6001,1500);
$cinhalt06a18 = substr($yc18,7501,1500);
$cinhalt07a18 = substr($yc18,9001,1500);
$cinhalt08a18 = substr($yc18,10501,1500);
$cinhalt09a18 = substr($yc18,12001,1500);


open (CFULL19, "3/19.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER19 = <CFULL19>;
close (CFULL19);
$yc19 = @CFUELLER19[0];
$cinhalt01a19 = substr($yc19,0,1500);
$cinhalt02a19 = substr($yc19,1501,1500);
$cinhalt03a19 = substr($yc19,3001,1500);
$cinhalt04a19 = substr($yc19,4501,1500);
$cinhalt05a19 = substr($yc19,6001,1500);
$cinhalt06a19 = substr($yc19,7501,1500);
$cinhalt07a19 = substr($yc19,9001,1500);
$cinhalt08a19 = substr($yc19,10501,1500);
$cinhalt09a19 = substr($yc19,12001,1500);


open (CFULL20, "3/20.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER20 = <CFULL20>;
close (CFULL20);
$yc20 = @CFUELLER20[0];
$cinhalt01a20 = substr($yc20,0,1500);
$cinhalt02a20 = substr($yc20,1501,1500);
$cinhalt03a20 = substr($yc20,3001,1500);
$cinhalt04a20 = substr($yc20,4501,1500);
$cinhalt05a20 = substr($yc20,6001,1500);
$cinhalt06a20 = substr($yc20,7501,1500);
$cinhalt07a20 = substr($yc20,9001,1500);
$cinhalt08a20 = substr($yc20,10501,1500);
$cinhalt09a20 = substr($yc20,12001,1500);


open (CFULL21, "3/21.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER21 = <CFULL21>;
close (CFULL21);
$yc21 = @CFUELLER21[0];
$cinhalt01a21 = substr($yc21,0,1500);
$cinhalt02a21 = substr($yc21,1501,1500);
$cinhalt03a21 = substr($yc21,3001,1500);
$cinhalt04a21 = substr($yc21,4501,1500);
$cinhalt05a21 = substr($yc21,6001,1500);
$cinhalt06a21 = substr($yc21,7501,1500);
$cinhalt07a21 = substr($yc21,9001,1500);
$cinhalt08a21 = substr($yc21,10501,1500);
$cinhalt09a21 = substr($yc21,12001,1500);


open (CFULL22, "3/22.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER22 = <CFULL22>;
close (CFULL22);
$yc22 = @CFUELLER22[0];
$cinhalt01a22 = substr($yc22,0,1500);
$cinhalt02a22 = substr($yc22,1501,1500);
$cinhalt03a22 = substr($yc22,3001,1500);
$cinhalt04a22 = substr($yc22,4501,1500);
$cinhalt05a22 = substr($yc22,6001,1500);
$cinhalt06a22 = substr($yc22,7501,1500);
$cinhalt07a22 = substr($yc22,9001,1500);
$cinhalt08a22 = substr($yc22,10501,1500);
$cinhalt09a22 = substr($yc22,12001,1500);


open (CFULL23, "3/23.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER23 = <CFULL23>;
close (CFULL23);
$yc23 = @CFUELLER23[0];
$cinhalt01a23 = substr($yc23,0,1500);
$cinhalt02a23 = substr($yc23,1501,1500);
$cinhalt03a23 = substr($yc23,3001,1500);
$cinhalt04a23 = substr($yc23,4501,1500);
$cinhalt05a23 = substr($yc23,6001,1500);
$cinhalt06a23 = substr($yc23,7501,1500);
$cinhalt07a23 = substr($yc23,9001,1500);
$cinhalt08a23 = substr($yc23,10501,1500);
$cinhalt09a23 = substr($yc23,12001,1500);


open (CFULL24, "3/24.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER24 = <CFULL24>;
close (CFULL24);
$yc24 = @CFUELLER24[0];
$cinhalt01a24 = substr($yc24,0,1500);
$cinhalt02a24 = substr($yc24,1501,1500);
$cinhalt03a24 = substr($yc24,3001,1500);
$cinhalt04a24 = substr($yc24,4501,1500);
$cinhalt05a24 = substr($yc24,6001,1500);
$cinhalt06a24 = substr($yc24,7501,1500);
$cinhalt07a24 = substr($yc24,9001,1500);
$cinhalt08a24 = substr($yc24,10501,1500);
$cinhalt09a24 = substr($yc24,12001,1500);


open (CFULL25, "3/25.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER25 = <CFULL25>;
close (CFULL25);
$yc25 = @CFUELLER25[0];
$cinhalt01a25 = substr($yc25,0,1500);
$cinhalt02a25 = substr($yc25,1501,1500);
$cinhalt03a25 = substr($yc25,3001,1500);
$cinhalt04a25 = substr($yc25,4501,1500);
$cinhalt05a25 = substr($yc25,6001,1500);
$cinhalt06a25 = substr($yc25,7501,1500);
$cinhalt07a25 = substr($yc25,9001,1500);
$cinhalt08a25 = substr($yc25,10501,1500);
$cinhalt09a25 = substr($yc25,12001,1500);


open (CFULL26, "3/26.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER26 = <CFULL26>;
close (CFULL26);
$yc26 = @CFUELLER26[0];
$cinhalt01a26 = substr($yc26,0,1500);
$cinhalt02a26 = substr($yc26,1501,1500);
$cinhalt03a26 = substr($yc26,3001,1500);
$cinhalt04a26 = substr($yc26,4501,1500);
$cinhalt05a26 = substr($yc26,6001,1500);
$cinhalt06a26 = substr($yc26,7501,1500);
$cinhalt07a26 = substr($yc26,9001,1500);
$cinhalt08a26 = substr($yc26,10501,1500);
$cinhalt09a26 = substr($yc26,12001,1500);


open (CFULL27, "3/27.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER27 = <CFULL27>;
close (CFULL27);
$yc27 = @CFUELLER27[0];
$cinhalt01a27 = substr($yc27,0,1500);
$cinhalt02a27 = substr($yc27,1501,1500);
$cinhalt03a27 = substr($yc27,3001,1500);
$cinhalt04a27 = substr($yc27,4501,1500);
$cinhalt05a27 = substr($yc27,6001,1500);
$cinhalt06a27 = substr($yc27,7501,1500);
$cinhalt07a27 = substr($yc27,9001,1500);
$cinhalt08a27 = substr($yc27,10501,1500);
$cinhalt09a27 = substr($yc27,12001,1500);


open (CFULL28, "3/28.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER28 = <CFULL28>;
close (CFULL28);
$yc28 = @CFUELLER28[0];
$cinhalt01a28 = substr($yc28,0,1500);
$cinhalt02a28 = substr($yc28,1501,1500);
$cinhalt03a28 = substr($yc28,3001,1500);
$cinhalt04a28 = substr($yc28,4501,1500);
$cinhalt05a28 = substr($yc28,6001,1500);
$cinhalt06a28 = substr($yc28,7501,1500);
$cinhalt07a28 = substr($yc28,9001,1500);
$cinhalt08a28 = substr($yc28,10501,1500);
$cinhalt09a28 = substr($yc28,12001,1500);


open (CFULL29, "3/29.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER29 = <CFULL29>;
close (CFULL29);
$yc29 = @CFUELLER29[0];
$cinhalt01a29 = substr($yc29,0,1500);
$cinhalt02a29 = substr($yc29,1501,1500);
$cinhalt03a29 = substr($yc29,3001,1500);
$cinhalt04a29 = substr($yc29,4501,1500);
$cinhalt05a29 = substr($yc29,6001,1500);
$cinhalt06a29 = substr($yc29,7501,1500);
$cinhalt07a29 = substr($yc29,9001,1500);
$cinhalt08a29 = substr($yc29,10501,1500);
$cinhalt09a29 = substr($yc29,12001,1500);


open (CFULL30, "3/30.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER30 = <CFULL30>;
close (CFULL30);
$yc30 = @CFUELLER30[0];
$cinhalt01a30 = substr($yc30,0,1500);
$cinhalt02a30 = substr($yc30,1501,1500);
$cinhalt03a30 = substr($yc30,3001,1500);
$cinhalt04a30 = substr($yc30,4501,1500);
$cinhalt05a30 = substr($yc30,6001,1500);
$cinhalt06a30 = substr($yc30,7501,1500);
$cinhalt07a30 = substr($yc30,9001,1500);
$cinhalt08a30 = substr($yc30,10501,1500);
$cinhalt09a30 = substr($yc30,12001,1500);


open (CFULL31, "3/31.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER31 = <CFULL31>;
close (CFULL31);
$yc31 = @CFUELLER31[0];
$cinhalt01a31 = substr($yc31,0,1500);
$cinhalt02a31 = substr($yc31,1501,1500);
$cinhalt03a31 = substr($yc31,3001,1500);
$cinhalt04a31 = substr($yc31,4501,1500);
$cinhalt05a31 = substr($yc31,6001,1500);
$cinhalt06a31 = substr($yc31,7501,1500);
$cinhalt07a31 = substr($yc31,9001,1500);
$cinhalt08a31 = substr($yc31,10501,1500);
$cinhalt09a31 = substr($yc31,12001,1500);


open (CFULL32, "3/32.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER32 = <CFULL32>;
close (CFULL32);
$yc32 = @CFUELLER32[0];
$cinhalt01a32 = substr($yc32,0,1500);
$cinhalt02a32 = substr($yc32,1501,1500);
$cinhalt03a32 = substr($yc32,3001,1500);
$cinhalt04a32 = substr($yc32,4501,1500);
$cinhalt05a32 = substr($yc32,6001,1500);
$cinhalt06a32 = substr($yc32,7501,1500);
$cinhalt07a32 = substr($yc32,9001,1500);
$cinhalt08a32 = substr($yc32,10501,1500);
$cinhalt09a32 = substr($yc32,12001,1500);


open (CFULL33, "3/33.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER33 = <CFULL33>;
close (CFULL33);
$yc33 = @CFUELLER33[0];
$cinhalt01a33 = substr($yc33,0,1500);
$cinhalt02a33 = substr($yc33,1501,1500);
$cinhalt03a33 = substr($yc33,3001,1500);
$cinhalt04a33 = substr($yc33,4501,1500);
$cinhalt05a33 = substr($yc33,6001,1500);
$cinhalt06a33 = substr($yc33,7501,1500);
$cinhalt07a33 = substr($yc33,9001,1500);
$cinhalt08a33 = substr($yc33,10501,1500);
$cinhalt09a33 = substr($yc33,12001,1500);


open (CFULL34, "3/34.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER34 = <CFULL34>;
close (CFULL34);
$yc34 = @CFUELLER34[0];
$cinhalt01a34 = substr($yc34,0,1500);
$cinhalt02a34 = substr($yc34,1501,1500);
$cinhalt03a34 = substr($yc34,3001,1500);
$cinhalt04a34 = substr($yc34,4501,1500);
$cinhalt05a34 = substr($yc34,6001,1500);
$cinhalt06a34 = substr($yc34,7501,1500);
$cinhalt07a34 = substr($yc34,9001,1500);
$cinhalt08a34 = substr($yc34,10501,1500);
$cinhalt09a34 = substr($yc34,12001,1500);


open (CFULL35, "3/35.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER35 = <CFULL35>;
close (CFULL35);
$yc35 = @CFUELLER35[0];
$cinhalt01a35 = substr($yc35,0,1500);
$cinhalt02a35 = substr($yc35,1501,1500);
$cinhalt03a35 = substr($yc35,3001,1500);
$cinhalt04a35 = substr($yc35,4501,1500);
$cinhalt05a35 = substr($yc35,6001,1500);
$cinhalt06a35 = substr($yc35,7501,1500);
$cinhalt07a35 = substr($yc35,9001,1500);
$cinhalt08a35 = substr($yc35,10501,1500);
$cinhalt09a35 = substr($yc35,12001,1500);


open (CFULL36, "3/36.txt") || die "Datei1 nicht gefunden\n";
@CFUELLER36 = <CFULL36>;
close (CFULL36);
$yc36 = @CFUELLER36[0];
$cinhalt01a36 = substr($yc36,0,1500);
$cinhalt02a36 = substr($yc36,1501,1500);
$cinhalt03a36 = substr($yc36,3001,1500);
$cinhalt04a36 = substr($yc36,4501,1500);
$cinhalt05a36 = substr($yc36,6001,1500);
$cinhalt06a36 = substr($yc36,7501,1500);
$cinhalt07a36 = substr($yc36,9001,1500);
$cinhalt08a36 = substr($yc36,10501,1500);
$cinhalt09a36 = substr($yc36,12001,1500);


open (DFULL1, "4/1.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER1 = <DFULL1>;
close (DFULL1);
$yd1 = @DFUELLER1[0];
$dinhalt01a1 = substr($yd1,0,1500);
$dinhalt02a1 = substr($yd1,1501,1500);
$dinhalt03a1 = substr($yd1,3001,1500);
$dinhalt04a1 = substr($yd1,4501,1500);
$dinhalt05a1 = substr($yd1,6001,1500);
$dinhalt06a1 = substr($yd1,7501,1500);
$dinhalt07a1 = substr($yd1,9001,1500);
$dinhalt08a1 = substr($yd1,10501,1500);
$dinhalt09a1 = substr($yd1,12001,1500);


open (DFULL2, "4/2.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER2 = <DFULL2>;
close (DFULL2);
$yd2 = @DFUELLER2[0];
$dinhalt01a2 = substr($yd2,0,1500);
$dinhalt02a2 = substr($yd2,1501,1500);
$dinhalt03a2 = substr($yd2,3001,1500);
$dinhalt04a2 = substr($yd2,4501,1500);
$dinhalt05a2 = substr($yd2,6001,1500);
$dinhalt06a2 = substr($yd2,7501,1500);
$dinhalt07a2 = substr($yd2,9001,1500);
$dinhalt08a2 = substr($yd2,10501,1500);
$dinhalt09a2 = substr($yd2,12001,1500);


open (DFULL3, "4/3.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER3 = <DFULL3>;
close (DFULL3);
$yd3 = @DFUELLER3[0];
$dinhalt01a3 = substr($yd3,0,1500);
$dinhalt02a3 = substr($yd3,1501,1500);
$dinhalt03a3 = substr($yd3,3001,1500);
$dinhalt04a3 = substr($yd3,4501,1500);
$dinhalt05a3 = substr($yd3,6001,1500);
$dinhalt06a3 = substr($yd3,7501,1500);
$dinhalt07a3 = substr($yd3,9001,1500);
$dinhalt08a3 = substr($yd3,10501,1500);
$dinhalt09a3 = substr($yd3,12001,1500);


open (DFULL4, "4/4.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER4 = <DFULL4>;
close (DFULL4);
$yd4 = @DFUELLER4[0];
$dinhalt01a4 = substr($yd4,0,1500);
$dinhalt02a4 = substr($yd4,1501,1500);
$dinhalt03a4 = substr($yd4,3001,1500);
$dinhalt04a4 = substr($yd4,4501,1500);
$dinhalt05a4 = substr($yd4,6001,1500);
$dinhalt06a4 = substr($yd4,7501,1500);
$dinhalt07a4 = substr($yd4,9001,1500);
$dinhalt08a4 = substr($yd4,10501,1500);
$dinhalt09a4 = substr($yd4,12001,1500);


open (DFULL5, "4/5.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER5 = <DFULL5>;
close (DFULL5);
$yd5 = @DFUELLER5[0];
$dinhalt01a5 = substr($yd5,0,1500);
$dinhalt02a5 = substr($yd5,1501,1500);
$dinhalt03a5 = substr($yd5,3001,1500);
$dinhalt04a5 = substr($yd5,4501,1500);
$dinhalt05a5 = substr($yd5,6001,1500);
$dinhalt06a5 = substr($yd5,7501,1500);
$dinhalt07a5 = substr($yd5,9001,1500);
$dinhalt08a5 = substr($yd5,10501,1500);
$dinhalt09a5 = substr($yd5,12001,1500);


open (DFULL6, "4/6.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER6 = <DFULL6>;
close (DFULL6);
$yd6 = @DFUELLER6[0];
$dinhalt01a6 = substr($yd6,0,1500);
$dinhalt02a6 = substr($yd6,1501,1500);
$dinhalt03a6 = substr($yd6,3001,1500);
$dinhalt04a6 = substr($yd6,4501,1500);
$dinhalt05a6 = substr($yd6,6001,1500);
$dinhalt06a6 = substr($yd6,7501,1500);
$dinhalt07a6 = substr($yd6,9001,1500);
$dinhalt08a6 = substr($yd6,10501,1500);
$dinhalt09a6 = substr($yd6,12001,1500);


open (DFULL7, "4/7.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER7 = <DFULL7>;
close (DFULL7);
$yd7 = @DFUELLER7[0];
$dinhalt01a7 = substr($yd7,0,1500);
$dinhalt02a7 = substr($yd7,1501,1500);
$dinhalt03a7 = substr($yd7,3001,1500);
$dinhalt04a7 = substr($yd7,4501,1500);
$dinhalt05a7 = substr($yd7,6001,1500);
$dinhalt06a7 = substr($yd7,7501,1500);
$dinhalt07a7 = substr($yd7,9001,1500);
$dinhalt08a7 = substr($yd7,10501,1500);
$dinhalt09a7 = substr($yd7,12001,1500);


open (DFULL8, "4/8.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER8 = <DFULL8>;
close (DFULL8);
$yd8 = @DFUELLER8[0];
$dinhalt01a8 = substr($yd8,0,1500);
$dinhalt02a8 = substr($yd8,1501,1500);
$dinhalt03a8 = substr($yd8,3001,1500);
$dinhalt04a8 = substr($yd8,4501,1500);
$dinhalt05a8 = substr($yd8,6001,1500);
$dinhalt06a8 = substr($yd8,7501,1500);
$dinhalt07a8 = substr($yd8,9001,1500);
$dinhalt08a8 = substr($yd8,10501,1500);
$dinhalt09a8 = substr($yd8,12001,1500);


open (DFULL9, "4/9.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER9 = <DFULL9>;
close (DFULL9);
$yd9 = @DFUELLER9[0];
$dinhalt01a9 = substr($yd9,0,1500);
$dinhalt02a9 = substr($yd9,1501,1500);
$dinhalt03a9 = substr($yd9,3001,1500);
$dinhalt04a9 = substr($yd9,4501,1500);
$dinhalt05a9 = substr($yd9,6001,1500);
$dinhalt06a9 = substr($yd9,7501,1500);
$dinhalt07a9 = substr($yd9,9001,1500);
$dinhalt08a9 = substr($yd9,10501,1500);
$dinhalt09a9 = substr($yd9,12001,1500);


open (DFULL10, "4/10.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER10 = <DFULL10>;
close (DFULL10);
$yd10 = @DFUELLER10[0];
$dinhalt01a10 = substr($yd10,0,1500);
$dinhalt02a10 = substr($yd10,1501,1500);
$dinhalt03a10 = substr($yd10,3001,1500);
$dinhalt04a10 = substr($yd10,4501,1500);
$dinhalt05a10 = substr($yd10,6001,1500);
$dinhalt06a10 = substr($yd10,7501,1500);
$dinhalt07a10 = substr($yd10,9001,1500);
$dinhalt08a10 = substr($yd10,10501,1500);
$dinhalt09a10 = substr($yd10,12001,1500);


open (DFULL11, "4/11.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER11 = <DFULL11>;
close (DFULL11);
$yd11 = @DFUELLER11[0];
$dinhalt01a11 = substr($yd11,0,1500);
$dinhalt02a11 = substr($yd11,1501,1500);
$dinhalt03a11 = substr($yd11,3001,1500);
$dinhalt04a11 = substr($yd11,4501,1500);
$dinhalt05a11 = substr($yd11,6001,1500);
$dinhalt06a11 = substr($yd11,7501,1500);
$dinhalt07a11 = substr($yd11,9001,1500);
$dinhalt08a11 = substr($yd11,10501,1500);
$dinhalt09a11 = substr($yd11,12001,1500);


open (DFULL12, "4/12.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER12 = <DFULL12>;
close (DFULL12);
$yd12 = @DFUELLER12[0];
$dinhalt01a12 = substr($yd12,0,1500);
$dinhalt02a12 = substr($yd12,1501,1500);
$dinhalt03a12 = substr($yd12,3001,1500);
$dinhalt04a12 = substr($yd12,4501,1500);
$dinhalt05a12 = substr($yd12,6001,1500);
$dinhalt06a12 = substr($yd12,7501,1500);
$dinhalt07a12 = substr($yd12,9001,1500);
$dinhalt08a12 = substr($yd12,10501,1500);
$dinhalt09a12 = substr($yd12,12001,1500);


open (DFULL13, "4/13.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER13 = <DFULL13>;
close (DFULL13);
$yd13 = @DFUELLER13[0];
$dinhalt01a13 = substr($yd13,0,1500);
$dinhalt02a13 = substr($yd13,1501,1500);
$dinhalt03a13 = substr($yd13,3001,1500);
$dinhalt04a13 = substr($yd13,4501,1500);
$dinhalt05a13 = substr($yd13,6001,1500);
$dinhalt06a13 = substr($yd13,7501,1500);
$dinhalt07a13 = substr($yd13,9001,1500);
$dinhalt08a13 = substr($yd13,10501,1500);
$dinhalt09a13 = substr($yd13,12001,1500);


open (DFULL14, "4/14.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER14 = <DFULL14>;
close (DFULL14);
$yd14 = @DFUELLER14[0];
$dinhalt01a14 = substr($yd14,0,1500);
$dinhalt02a14 = substr($yd14,1501,1500);
$dinhalt03a14 = substr($yd14,3001,1500);
$dinhalt04a14 = substr($yd14,4501,1500);
$dinhalt05a14 = substr($yd14,6001,1500);
$dinhalt06a14 = substr($yd14,7501,1500);
$dinhalt07a14 = substr($yd14,9001,1500);
$dinhalt08a14 = substr($yd14,10501,1500);
$dinhalt09a14 = substr($yd14,12001,1500);


open (DFULL15, "4/15.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER15 = <DFULL15>;
close (DFULL15);
$yd15 = @DFUELLER15[0];
$dinhalt01a15 = substr($yd15,0,1500);
$dinhalt02a15 = substr($yd15,1501,1500);
$dinhalt03a15 = substr($yd15,3001,1500);
$dinhalt04a15 = substr($yd15,4501,1500);
$dinhalt05a15 = substr($yd15,6001,1500);
$dinhalt06a15 = substr($yd15,7501,1500);
$dinhalt07a15 = substr($yd15,9001,1500);
$dinhalt08a15 = substr($yd15,10501,1500);
$dinhalt09a15 = substr($yd15,12001,1500);


open (DFULL16, "4/16.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER16 = <DFULL16>;
close (DFULL16);
$yd16 = @DFUELLER16[0];
$dinhalt01a16 = substr($yd16,0,1500);
$dinhalt02a16 = substr($yd16,1501,1500);
$dinhalt03a16 = substr($yd16,3001,1500);
$dinhalt04a16 = substr($yd16,4501,1500);
$dinhalt05a16 = substr($yd16,6001,1500);
$dinhalt06a16 = substr($yd16,7501,1500);
$dinhalt07a16 = substr($yd16,9001,1500);
$dinhalt08a16 = substr($yd16,10501,1500);
$dinhalt09a16 = substr($yd16,12001,1500);


open (DFULL17, "4/17.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER17 = <DFULL17>;
close (DFULL17);
$yd17 = @DFUELLER17[0];
$dinhalt01a17 = substr($yd17,0,1500);
$dinhalt02a17 = substr($yd17,1501,1500);
$dinhalt03a17 = substr($yd17,3001,1500);
$dinhalt04a17 = substr($yd17,4501,1500);
$dinhalt05a17 = substr($yd17,6001,1500);
$dinhalt06a17 = substr($yd17,7501,1500);
$dinhalt07a17 = substr($yd17,9001,1500);
$dinhalt08a17 = substr($yd17,10501,1500);
$dinhalt09a17 = substr($yd17,12001,1500);


open (DFULL18, "4/18.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER18 = <DFULL18>;
close (DFULL18);
$yd18 = @DFUELLER18[0];
$dinhalt01a18 = substr($yd18,0,1500);
$dinhalt02a18 = substr($yd18,1501,1500);
$dinhalt03a18 = substr($yd18,3001,1500);
$dinhalt04a18 = substr($yd18,4501,1500);
$dinhalt05a18 = substr($yd18,6001,1500);
$dinhalt06a18 = substr($yd18,7501,1500);
$dinhalt07a18 = substr($yd18,9001,1500);
$dinhalt08a18 = substr($yd18,10501,1500);
$dinhalt09a18 = substr($yd18,12001,1500);


open (DFULL19, "4/19.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER19 = <DFULL19>;
close (DFULL19);
$yd19 = @DFUELLER19[0];
$dinhalt01a19 = substr($yd19,0,1500);
$dinhalt02a19 = substr($yd19,1501,1500);
$dinhalt03a19 = substr($yd19,3001,1500);
$dinhalt04a19 = substr($yd19,4501,1500);
$dinhalt05a19 = substr($yd19,6001,1500);
$dinhalt06a19 = substr($yd19,7501,1500);
$dinhalt07a19 = substr($yd19,9001,1500);
$dinhalt08a19 = substr($yd19,10501,1500);
$dinhalt09a19 = substr($yd19,12001,1500);


open (DFULL20, "4/20.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER20 = <DFULL20>;
close (DFULL20);
$yd20 = @DFUELLER20[0];
$dinhalt01a20 = substr($yd20,0,1500);
$dinhalt02a20 = substr($yd20,1501,1500);
$dinhalt03a20 = substr($yd20,3001,1500);
$dinhalt04a20 = substr($yd20,4501,1500);
$dinhalt05a20 = substr($yd20,6001,1500);
$dinhalt06a20 = substr($yd20,7501,1500);
$dinhalt07a20 = substr($yd20,9001,1500);
$dinhalt08a20 = substr($yd20,10501,1500);
$dinhalt09a20 = substr($yd20,12001,1500);


open (DFULL21, "4/21.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER21 = <DFULL21>;
close (DFULL21);
$yd21 = @DFUELLER21[0];
$dinhalt01a21 = substr($yd21,0,1500);
$dinhalt02a21 = substr($yd21,1501,1500);
$dinhalt03a21 = substr($yd21,3001,1500);
$dinhalt04a21 = substr($yd21,4501,1500);
$dinhalt05a21 = substr($yd21,6001,1500);
$dinhalt06a21 = substr($yd21,7501,1500);
$dinhalt07a21 = substr($yd21,9001,1500);
$dinhalt08a21 = substr($yd21,10501,1500);
$dinhalt09a21 = substr($yd21,12001,1500);


open (DFULL22, "4/22.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER22 = <DFULL22>;
close (DFULL22);
$yd22 = @DFUELLER22[0];
$dinhalt01a22 = substr($yd22,0,1500);
$dinhalt02a22 = substr($yd22,1501,1500);
$dinhalt03a22 = substr($yd22,3001,1500);
$dinhalt04a22 = substr($yd22,4501,1500);
$dinhalt05a22 = substr($yd22,6001,1500);
$dinhalt06a22 = substr($yd22,7501,1500);
$dinhalt07a22 = substr($yd22,9001,1500);
$dinhalt08a22 = substr($yd22,10501,1500);
$dinhalt09a22 = substr($yd22,12001,1500);


open (DFULL23, "4/23.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER23 = <DFULL23>;
close (DFULL23);
$yd23 = @DFUELLER23[0];
$dinhalt01a23 = substr($yd23,0,1500);
$dinhalt02a23 = substr($yd23,1501,1500);
$dinhalt03a23 = substr($yd23,3001,1500);
$dinhalt04a23 = substr($yd23,4501,1500);
$dinhalt05a23 = substr($yd23,6001,1500);
$dinhalt06a23 = substr($yd23,7501,1500);
$dinhalt07a23 = substr($yd23,9001,1500);
$dinhalt08a23 = substr($yd23,10501,1500);
$dinhalt09a23 = substr($yd23,12001,1500);


open (DFULL24, "4/24.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER24 = <DFULL24>;
close (DFULL24);
$yd24 = @DFUELLER24[0];
$dinhalt01a24 = substr($yd24,0,1500);
$dinhalt02a24 = substr($yd24,1501,1500);
$dinhalt03a24 = substr($yd24,3001,1500);
$dinhalt04a24 = substr($yd24,4501,1500);
$dinhalt05a24 = substr($yd24,6001,1500);
$dinhalt06a24 = substr($yd24,7501,1500);
$dinhalt07a24 = substr($yd24,9001,1500);
$dinhalt08a24 = substr($yd24,10501,1500);
$dinhalt09a24 = substr($yd24,12001,1500);


open (DFULL25, "4/25.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER25 = <DFULL25>;
close (DFULL25);
$yd25 = @DFUELLER25[0];
$dinhalt01a25 = substr($yd25,0,1500);
$dinhalt02a25 = substr($yd25,1501,1500);
$dinhalt03a25 = substr($yd25,3001,1500);
$dinhalt04a25 = substr($yd25,4501,1500);
$dinhalt05a25 = substr($yd25,6001,1500);
$dinhalt06a25 = substr($yd25,7501,1500);
$dinhalt07a25 = substr($yd25,9001,1500);
$dinhalt08a25 = substr($yd25,10501,1500);
$dinhalt09a25 = substr($yd25,12001,1500);


open (DFULL26, "4/26.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER26 = <DFULL26>;
close (DFULL26);
$yd26 = @DFUELLER26[0];
$dinhalt01a26 = substr($yd26,0,1500);
$dinhalt02a26 = substr($yd26,1501,1500);
$dinhalt03a26 = substr($yd26,3001,1500);
$dinhalt04a26 = substr($yd26,4501,1500);
$dinhalt05a26 = substr($yd26,6001,1500);
$dinhalt06a26 = substr($yd26,7501,1500);
$dinhalt07a26 = substr($yd26,9001,1500);
$dinhalt08a26 = substr($yd26,10501,1500);
$dinhalt09a26 = substr($yd26,12001,1500);


open (DFULL27, "4/27.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER27 = <DFULL27>;
close (DFULL27);
$yd27 = @DFUELLER27[0];
$dinhalt01a27 = substr($yd27,0,1500);
$dinhalt02a27 = substr($yd27,1501,1500);
$dinhalt03a27 = substr($yd27,3001,1500);
$dinhalt04a27 = substr($yd27,4501,1500);
$dinhalt05a27 = substr($yd27,6001,1500);
$dinhalt06a27 = substr($yd27,7501,1500);
$dinhalt07a27 = substr($yd27,9001,1500);
$dinhalt08a27 = substr($yd27,10501,1500);
$dinhalt09a27 = substr($yd27,12001,1500);


open (DFULL28, "4/28.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER28 = <DFULL28>;
close (DFULL28);
$yd28 = @DFUELLER28[0];
$dinhalt01a28 = substr($yd28,0,1500);
$dinhalt02a28 = substr($yd28,1501,1500);
$dinhalt03a28 = substr($yd28,3001,1500);
$dinhalt04a28 = substr($yd28,4501,1500);
$dinhalt05a28 = substr($yd28,6001,1500);
$dinhalt06a28 = substr($yd28,7501,1500);
$dinhalt07a28 = substr($yd28,9001,1500);
$dinhalt08a28 = substr($yd28,10501,1500);
$dinhalt09a28 = substr($yd28,12001,1500);


open (DFULL29, "4/29.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER29 = <DFULL29>;
close (DFULL29);
$yd29 = @DFUELLER29[0];
$dinhalt01a29 = substr($yd29,0,1500);
$dinhalt02a29 = substr($yd29,1501,1500);
$dinhalt03a29 = substr($yd29,3001,1500);
$dinhalt04a29 = substr($yd29,4501,1500);
$dinhalt05a29 = substr($yd29,6001,1500);
$dinhalt06a29 = substr($yd29,7501,1500);
$dinhalt07a29 = substr($yd29,9001,1500);
$dinhalt08a29 = substr($yd29,10501,1500);
$dinhalt09a29 = substr($yd29,12001,1500);


open (DFULL30, "4/30.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER30 = <DFULL30>;
close (DFULL30);
$yd30 = @DFUELLER30[0];
$dinhalt01a30 = substr($yd30,0,1500);
$dinhalt02a30 = substr($yd30,1501,1500);
$dinhalt03a30 = substr($yd30,3001,1500);
$dinhalt04a30 = substr($yd30,4501,1500);
$dinhalt05a30 = substr($yd30,6001,1500);
$dinhalt06a30 = substr($yd30,7501,1500);
$dinhalt07a30 = substr($yd30,9001,1500);
$dinhalt08a30 = substr($yd30,10501,1500);
$dinhalt09a30 = substr($yd30,12001,1500);


open (DFULL31, "4/31.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER31 = <DFULL31>;
close (DFULL31);
$yd31 = @DFUELLER31[0];
$dinhalt01a31 = substr($yd31,0,1500);
$dinhalt02a31 = substr($yd31,1501,1500);
$dinhalt03a31 = substr($yd31,3001,1500);
$dinhalt04a31 = substr($yd31,4501,1500);
$dinhalt05a31 = substr($yd31,6001,1500);
$dinhalt06a31 = substr($yd31,7501,1500);
$dinhalt07a31 = substr($yd31,9001,1500);
$dinhalt08a31 = substr($yd31,10501,1500);
$dinhalt09a31 = substr($yd31,12001,1500);


open (DFULL32, "4/32.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER32 = <DFULL32>;
close (DFULL32);
$yd32 = @DFUELLER32[0];
$dinhalt01a32 = substr($yd32,0,1500);
$dinhalt02a32 = substr($yd32,1501,1500);
$dinhalt03a32 = substr($yd32,3001,1500);
$dinhalt04a32 = substr($yd32,4501,1500);
$dinhalt05a32 = substr($yd32,6001,1500);
$dinhalt06a32 = substr($yd32,7501,1500);
$dinhalt07a32 = substr($yd32,9001,1500);
$dinhalt08a32 = substr($yd32,10501,1500);
$dinhalt09a32 = substr($yd32,12001,1500);


open (DFULL33, "4/33.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER33 = <DFULL33>;
close (DFULL33);
$yd33 = @DFUELLER33[0];
$dinhalt01a33 = substr($yd33,0,1500);
$dinhalt02a33 = substr($yd33,1501,1500);
$dinhalt03a33 = substr($yd33,3001,1500);
$dinhalt04a33 = substr($yd33,4501,1500);
$dinhalt05a33 = substr($yd33,6001,1500);
$dinhalt06a33 = substr($yd33,7501,1500);
$dinhalt07a33 = substr($yd33,9001,1500);
$dinhalt08a33 = substr($yd33,10501,1500);
$dinhalt09a33 = substr($yd33,12001,1500);


open (DFULL34, "4/34.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER34 = <DFULL34>;
close (DFULL34);
$yd34 = @DFUELLER34[0];
$dinhalt01a34 = substr($yd34,0,1500);
$dinhalt02a34 = substr($yd34,1501,1500);
$dinhalt03a34 = substr($yd34,3001,1500);
$dinhalt04a34 = substr($yd34,4501,1500);
$dinhalt05a34 = substr($yd34,6001,1500);
$dinhalt06a34 = substr($yd34,7501,1500);
$dinhalt07a34 = substr($yd34,9001,1500);
$dinhalt08a34 = substr($yd34,10501,1500);
$dinhalt09a34 = substr($yd34,12001,1500);


open (DFULL35, "4/35.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER35 = <DFULL35>;
close (DFULL35);
$yd35 = @DFUELLER35[0];
$dinhalt01a35 = substr($yd35,0,1500);
$dinhalt02a35 = substr($yd35,1501,1500);
$dinhalt03a35 = substr($yd35,3001,1500);
$dinhalt04a35 = substr($yd35,4501,1500);
$dinhalt05a35 = substr($yd35,6001,1500);
$dinhalt06a35 = substr($yd35,7501,1500);
$dinhalt07a35 = substr($yd35,9001,1500);
$dinhalt08a35 = substr($yd35,10501,1500);
$dinhalt09a35 = substr($yd35,12001,1500);


open (DFULL36, "4/36.txt") || die "Datei1 nicht gefunden\n";
@DFUELLER36 = <DFULL36>;
close (DFULL36);
$yd36 = @DFUELLER36[0];
$dinhalt01a36 = substr($yd36,0,1500);
$dinhalt02a36 = substr($yd36,1501,1500);
$dinhalt03a36 = substr($yd36,3001,1500);
$dinhalt04a36 = substr($yd36,4501,1500);
$dinhalt05a36 = substr($yd36,6001,1500);
$dinhalt06a36 = substr($yd36,7501,1500);
$dinhalt07a36 = substr($yd36,9001,1500);
$dinhalt08a36 = substr($yd36,10501,1500);
$dinhalt09a36 = substr($yd36,12001,1500);


open (EFULL1, "5/1.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER1 = <EFULL1>;
close (EFULL1);
$ye1 = @EFUELLER1[0];
$einhalt01a1 = substr($ye1,0,1500);
$einhalt02a1 = substr($ye1,1501,1500);
$einhalt03a1 = substr($ye1,3001,1500);
$einhalt04a1 = substr($ye1,4501,1500);
$einhalt05a1 = substr($ye1,6001,1500);
$einhalt06a1 = substr($ye1,7501,1500);
$einhalt07a1 = substr($ye1,9001,1500);
$einhalt08a1 = substr($ye1,10501,1500);
$einhalt09a1 = substr($ye1,12001,1500);


open (EFULL2, "5/2.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER2 = <EFULL2>;
close (EFULL2);
$ye2 = @EFUELLER2[0];
$einhalt01a2 = substr($ye2,0,1500);
$einhalt02a2 = substr($ye2,1501,1500);
$einhalt03a2 = substr($ye2,3001,1500);
$einhalt04a2 = substr($ye2,4501,1500);
$einhalt05a2 = substr($ye2,6001,1500);
$einhalt06a2 = substr($ye2,7501,1500);
$einhalt07a2 = substr($ye2,9001,1500);
$einhalt08a2 = substr($ye2,10501,1500);
$einhalt09a2 = substr($ye2,12001,1500);


open (EFULL3, "5/3.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER3 = <EFULL3>;
close (EFULL3);
$ye3 = @EFUELLER3[0];
$einhalt01a3 = substr($ye3,0,1500);
$einhalt02a3 = substr($ye3,1501,1500);
$einhalt03a3 = substr($ye3,3001,1500);
$einhalt04a3 = substr($ye3,4501,1500);
$einhalt05a3 = substr($ye3,6001,1500);
$einhalt06a3 = substr($ye3,7501,1500);
$einhalt07a3 = substr($ye3,9001,1500);
$einhalt08a3 = substr($ye3,10501,1500);
$einhalt09a3 = substr($ye3,12001,1500);


open (EFULL4, "5/4.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER4 = <EFULL4>;
close (EFULL4);
$ye4 = @EFUELLER4[0];
$einhalt01a4 = substr($ye4,0,1500);
$einhalt02a4 = substr($ye4,1501,1500);
$einhalt03a4 = substr($ye4,3001,1500);
$einhalt04a4 = substr($ye4,4501,1500);
$einhalt05a4 = substr($ye4,6001,1500);
$einhalt06a4 = substr($ye4,7501,1500);
$einhalt07a4 = substr($ye4,9001,1500);
$einhalt08a4 = substr($ye4,10501,1500);
$einhalt09a4 = substr($ye4,12001,1500);


open (EFULL5, "5/5.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER5 = <EFULL5>;
close (EFULL5);
$ye5 = @EFUELLER5[0];
$einhalt01a5 = substr($ye5,0,1500);
$einhalt02a5 = substr($ye5,1501,1500);
$einhalt03a5 = substr($ye5,3001,1500);
$einhalt04a5 = substr($ye5,4501,1500);
$einhalt05a5 = substr($ye5,6001,1500);
$einhalt06a5 = substr($ye5,7501,1500);
$einhalt07a5 = substr($ye5,9001,1500);
$einhalt08a5 = substr($ye5,10501,1500);
$einhalt09a5 = substr($ye5,12001,1500);


open (EFULL6, "5/6.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER6 = <EFULL6>;
close (EFULL6);
$ye6 = @EFUELLER6[0];
$einhalt01a6 = substr($ye6,0,1500);
$einhalt02a6 = substr($ye6,1501,1500);
$einhalt03a6 = substr($ye6,3001,1500);
$einhalt04a6 = substr($ye6,4501,1500);
$einhalt05a6 = substr($ye6,6001,1500);
$einhalt06a6 = substr($ye6,7501,1500);
$einhalt07a6 = substr($ye6,9001,1500);
$einhalt08a6 = substr($ye6,10501,1500);
$einhalt09a6 = substr($ye6,12001,1500);


open (EFULL7, "5/7.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER7 = <EFULL7>;
close (EFULL7);
$ye7 = @EFUELLER7[0];
$einhalt01a7 = substr($ye7,0,1500);
$einhalt02a7 = substr($ye7,1501,1500);
$einhalt03a7 = substr($ye7,3001,1500);
$einhalt04a7 = substr($ye7,4501,1500);
$einhalt05a7 = substr($ye7,6001,1500);
$einhalt06a7 = substr($ye7,7501,1500);
$einhalt07a7 = substr($ye7,9001,1500);
$einhalt08a7 = substr($ye7,10501,1500);
$einhalt09a7 = substr($ye7,12001,1500);


open (EFULL8, "5/8.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER8 = <EFULL8>;
close (EFULL8);
$ye8 = @EFUELLER8[0];
$einhalt01a8 = substr($ye8,0,1500);
$einhalt02a8 = substr($ye8,1501,1500);
$einhalt03a8 = substr($ye8,3001,1500);
$einhalt04a8 = substr($ye8,4501,1500);
$einhalt05a8 = substr($ye8,6001,1500);
$einhalt06a8 = substr($ye8,7501,1500);
$einhalt07a8 = substr($ye8,9001,1500);
$einhalt08a8 = substr($ye8,10501,1500);
$einhalt09a8 = substr($ye8,12001,1500);


open (EFULL9, "5/9.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER9 = <EFULL9>;
close (EFULL9);
$ye9 = @EFUELLER9[0];
$einhalt01a9 = substr($ye9,0,1500);
$einhalt02a9 = substr($ye9,1501,1500);
$einhalt03a9 = substr($ye9,3001,1500);
$einhalt04a9 = substr($ye9,4501,1500);
$einhalt05a9 = substr($ye9,6001,1500);
$einhalt06a9 = substr($ye9,7501,1500);
$einhalt07a9 = substr($ye9,9001,1500);
$einhalt08a9 = substr($ye9,10501,1500);
$einhalt09a9 = substr($ye9,12001,1500);


open (EFULL10, "5/10.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER10 = <EFULL10>;
close (EFULL10);
$ye10 = @EFUELLER10[0];
$einhalt01a10 = substr($ye10,0,1500);
$einhalt02a10 = substr($ye10,1501,1500);
$einhalt03a10 = substr($ye10,3001,1500);
$einhalt04a10 = substr($ye10,4501,1500);
$einhalt05a10 = substr($ye10,6001,1500);
$einhalt06a10 = substr($ye10,7501,1500);
$einhalt07a10 = substr($ye10,9001,1500);
$einhalt08a10 = substr($ye10,10501,1500);
$einhalt09a10 = substr($ye10,12001,1500);


open (EFULL11, "5/11.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER11 = <EFULL11>;
close (EFULL11);
$ye11 = @EFUELLER11[0];
$einhalt01a11 = substr($ye11,0,1500);
$einhalt02a11 = substr($ye11,1501,1500);
$einhalt03a11 = substr($ye11,3001,1500);
$einhalt04a11 = substr($ye11,4501,1500);
$einhalt05a11 = substr($ye11,6001,1500);
$einhalt06a11 = substr($ye11,7501,1500);
$einhalt07a11 = substr($ye11,9001,1500);
$einhalt08a11 = substr($ye11,10501,1500);
$einhalt09a11 = substr($ye11,12001,1500);


open (EFULL12, "5/12.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER12 = <EFULL12>;
close (EFULL12);
$ye12 = @EFUELLER12[0];
$einhalt01a12 = substr($ye12,0,1500);
$einhalt02a12 = substr($ye12,1501,1500);
$einhalt03a12 = substr($ye12,3001,1500);
$einhalt04a12 = substr($ye12,4501,1500);
$einhalt05a12 = substr($ye12,6001,1500);
$einhalt06a12 = substr($ye12,7501,1500);
$einhalt07a12 = substr($ye12,9001,1500);
$einhalt08a12 = substr($ye12,10501,1500);
$einhalt09a12 = substr($ye12,12001,1500);


open (EFULL13, "5/13.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER13 = <EFULL13>;
close (EFULL13);
$ye13 = @EFUELLER13[0];
$einhalt01a13 = substr($ye13,0,1500);
$einhalt02a13 = substr($ye13,1501,1500);
$einhalt03a13 = substr($ye13,3001,1500);
$einhalt04a13 = substr($ye13,4501,1500);
$einhalt05a13 = substr($ye13,6001,1500);
$einhalt06a13 = substr($ye13,7501,1500);
$einhalt07a13 = substr($ye13,9001,1500);
$einhalt08a13 = substr($ye13,10501,1500);
$einhalt09a13 = substr($ye13,12001,1500);


open (EFULL14, "5/14.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER14 = <EFULL14>;
close (EFULL14);
$ye14 = @EFUELLER14[0];
$einhalt01a14 = substr($ye14,0,1500);
$einhalt02a14 = substr($ye14,1501,1500);
$einhalt03a14 = substr($ye14,3001,1500);
$einhalt04a14 = substr($ye14,4501,1500);
$einhalt05a14 = substr($ye14,6001,1500);
$einhalt06a14 = substr($ye14,7501,1500);
$einhalt07a14 = substr($ye14,9001,1500);
$einhalt08a14 = substr($ye14,10501,1500);
$einhalt09a14 = substr($ye14,12001,1500);


open (EFULL15, "5/15.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER15 = <EFULL15>;
close (EFULL15);
$ye15 = @EFUELLER15[0];
$einhalt01a15 = substr($ye15,0,1500);
$einhalt02a15 = substr($ye15,1501,1500);
$einhalt03a15 = substr($ye15,3001,1500);
$einhalt04a15 = substr($ye15,4501,1500);
$einhalt05a15 = substr($ye15,6001,1500);
$einhalt06a15 = substr($ye15,7501,1500);
$einhalt07a15 = substr($ye15,9001,1500);
$einhalt08a15 = substr($ye15,10501,1500);
$einhalt09a15 = substr($ye15,12001,1500);


open (EFULL16, "5/16.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER16 = <EFULL16>;
close (EFULL16);
$ye16 = @EFUELLER16[0];
$einhalt01a16 = substr($ye16,0,1500);
$einhalt02a16 = substr($ye16,1501,1500);
$einhalt03a16 = substr($ye16,3001,1500);
$einhalt04a16 = substr($ye16,4501,1500);
$einhalt05a16 = substr($ye16,6001,1500);
$einhalt06a16 = substr($ye16,7501,1500);
$einhalt07a16 = substr($ye16,9001,1500);
$einhalt08a16 = substr($ye16,10501,1500);
$einhalt09a16 = substr($ye16,12001,1500);


open (EFULL17, "5/17.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER17 = <EFULL17>;
close (EFULL17);
$ye17 = @EFUELLER17[0];
$einhalt01a17 = substr($ye17,0,1500);
$einhalt02a17 = substr($ye17,1501,1500);
$einhalt03a17 = substr($ye17,3001,1500);
$einhalt04a17 = substr($ye17,4501,1500);
$einhalt05a17 = substr($ye17,6001,1500);
$einhalt06a17 = substr($ye17,7501,1500);
$einhalt07a17 = substr($ye17,9001,1500);
$einhalt08a17 = substr($ye17,10501,1500);
$einhalt09a17 = substr($ye17,12001,1500);


open (EFULL18, "5/18.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER18 = <EFULL18>;
close (EFULL18);
$ye18 = @EFUELLER18[0];
$einhalt01a18 = substr($ye18,0,1500);
$einhalt02a18 = substr($ye18,1501,1500);
$einhalt03a18 = substr($ye18,3001,1500);
$einhalt04a18 = substr($ye18,4501,1500);
$einhalt05a18 = substr($ye18,6001,1500);
$einhalt06a18 = substr($ye18,7501,1500);
$einhalt07a18 = substr($ye18,9001,1500);
$einhalt08a18 = substr($ye18,10501,1500);
$einhalt09a18 = substr($ye18,12001,1500);


open (EFULL19, "5/19.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER19 = <EFULL19>;
close (EFULL19);
$ye19 = @EFUELLER19[0];
$einhalt01a19 = substr($ye19,0,1500);
$einhalt02a19 = substr($ye19,1501,1500);
$einhalt03a19 = substr($ye19,3001,1500);
$einhalt04a19 = substr($ye19,4501,1500);
$einhalt05a19 = substr($ye19,6001,1500);
$einhalt06a19 = substr($ye19,7501,1500);
$einhalt07a19 = substr($ye19,9001,1500);
$einhalt08a19 = substr($ye19,10501,1500);
$einhalt09a19 = substr($ye19,12001,1500);


open (EFULL20, "5/20.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER20 = <EFULL20>;
close (EFULL20);
$ye20 = @EFUELLER20[0];
$einhalt01a20 = substr($ye20,0,1500);
$einhalt02a20 = substr($ye20,1501,1500);
$einhalt03a20 = substr($ye20,3001,1500);
$einhalt04a20 = substr($ye20,4501,1500);
$einhalt05a20 = substr($ye20,6001,1500);
$einhalt06a20 = substr($ye20,7501,1500);
$einhalt07a20 = substr($ye20,9001,1500);
$einhalt08a20 = substr($ye20,10501,1500);
$einhalt09a20 = substr($ye20,12001,1500);


open (EFULL21, "5/21.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER21 = <EFULL21>;
close (EFULL21);
$ye21 = @EFUELLER21[0];
$einhalt01a21 = substr($ye21,0,1500);
$einhalt02a21 = substr($ye21,1501,1500);
$einhalt03a21 = substr($ye21,3001,1500);
$einhalt04a21 = substr($ye21,4501,1500);
$einhalt05a21 = substr($ye21,6001,1500);
$einhalt06a21 = substr($ye21,7501,1500);
$einhalt07a21 = substr($ye21,9001,1500);
$einhalt08a21 = substr($ye21,10501,1500);
$einhalt09a21 = substr($ye21,12001,1500);


open (EFULL22, "5/22.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER22 = <EFULL22>;
close (EFULL22);
$ye22 = @EFUELLER22[0];
$einhalt01a22 = substr($ye22,0,1500);
$einhalt02a22 = substr($ye22,1501,1500);
$einhalt03a22 = substr($ye22,3001,1500);
$einhalt04a22 = substr($ye22,4501,1500);
$einhalt05a22 = substr($ye22,6001,1500);
$einhalt06a22 = substr($ye22,7501,1500);
$einhalt07a22 = substr($ye22,9001,1500);
$einhalt08a22 = substr($ye22,10501,1500);
$einhalt09a22 = substr($ye22,12001,1500);


open (EFULL23, "5/23.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER23 = <EFULL23>;
close (EFULL23);
$ye23 = @EFUELLER23[0];
$einhalt01a23 = substr($ye23,0,1500);
$einhalt02a23 = substr($ye23,1501,1500);
$einhalt03a23 = substr($ye23,3001,1500);
$einhalt04a23 = substr($ye23,4501,1500);
$einhalt05a23 = substr($ye23,6001,1500);
$einhalt06a23 = substr($ye23,7501,1500);
$einhalt07a23 = substr($ye23,9001,1500);
$einhalt08a23 = substr($ye23,10501,1500);
$einhalt09a23 = substr($ye23,12001,1500);


open (EFULL24, "5/24.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER24 = <EFULL24>;
close (EFULL24);
$ye24 = @EFUELLER24[0];
$einhalt01a24 = substr($ye24,0,1500);
$einhalt02a24 = substr($ye24,1501,1500);
$einhalt03a24 = substr($ye24,3001,1500);
$einhalt04a24 = substr($ye24,4501,1500);
$einhalt05a24 = substr($ye24,6001,1500);
$einhalt06a24 = substr($ye24,7501,1500);
$einhalt07a24 = substr($ye24,9001,1500);
$einhalt08a24 = substr($ye24,10501,1500);
$einhalt09a24 = substr($ye24,12001,1500);


open (EFULL25, "5/25.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER25 = <EFULL25>;
close (EFULL25);
$ye25 = @EFUELLER25[0];
$einhalt01a25 = substr($ye25,0,1500);
$einhalt02a25 = substr($ye25,1501,1500);
$einhalt03a25 = substr($ye25,3001,1500);
$einhalt04a25 = substr($ye25,4501,1500);
$einhalt05a25 = substr($ye25,6001,1500);
$einhalt06a25 = substr($ye25,7501,1500);
$einhalt07a25 = substr($ye25,9001,1500);
$einhalt08a25 = substr($ye25,10501,1500);
$einhalt09a25 = substr($ye25,12001,1500);


open (EFULL26, "5/26.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER26 = <EFULL26>;
close (EFULL26);
$ye26 = @EFUELLER26[0];
$einhalt01a26 = substr($ye26,0,1500);
$einhalt02a26 = substr($ye26,1501,1500);
$einhalt03a26 = substr($ye26,3001,1500);
$einhalt04a26 = substr($ye26,4501,1500);
$einhalt05a26 = substr($ye26,6001,1500);
$einhalt06a26 = substr($ye26,7501,1500);
$einhalt07a26 = substr($ye26,9001,1500);
$einhalt08a26 = substr($ye26,10501,1500);
$einhalt09a26 = substr($ye26,12001,1500);


open (EFULL27, "5/27.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER27 = <EFULL27>;
close (EFULL27);
$ye27 = @EFUELLER27[0];
$einhalt01a27 = substr($ye27,0,1500);
$einhalt02a27 = substr($ye27,1501,1500);
$einhalt03a27 = substr($ye27,3001,1500);
$einhalt04a27 = substr($ye27,4501,1500);
$einhalt05a27 = substr($ye27,6001,1500);
$einhalt06a27 = substr($ye27,7501,1500);
$einhalt07a27 = substr($ye27,9001,1500);
$einhalt08a27 = substr($ye27,10501,1500);
$einhalt09a27 = substr($ye27,12001,1500);


open (EFULL28, "5/28.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER28 = <EFULL28>;
close (EFULL28);
$ye28 = @EFUELLER28[0];
$einhalt01a28 = substr($ye28,0,1500);
$einhalt02a28 = substr($ye28,1501,1500);
$einhalt03a28 = substr($ye28,3001,1500);
$einhalt04a28 = substr($ye28,4501,1500);
$einhalt05a28 = substr($ye28,6001,1500);
$einhalt06a28 = substr($ye28,7501,1500);
$einhalt07a28 = substr($ye28,9001,1500);
$einhalt08a28 = substr($ye28,10501,1500);
$einhalt09a28 = substr($ye28,12001,1500);


open (EFULL29, "5/29.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER29 = <EFULL29>;
close (EFULL29);
$ye29 = @EFUELLER29[0];
$einhalt01a29 = substr($ye29,0,1500);
$einhalt02a29 = substr($ye29,1501,1500);
$einhalt03a29 = substr($ye29,3001,1500);
$einhalt04a29 = substr($ye29,4501,1500);
$einhalt05a29 = substr($ye29,6001,1500);
$einhalt06a29 = substr($ye29,7501,1500);
$einhalt07a29 = substr($ye29,9001,1500);
$einhalt08a29 = substr($ye29,10501,1500);
$einhalt09a29 = substr($ye29,12001,1500);


open (EFULL30, "5/30.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER30 = <EFULL30>;
close (EFULL30);
$ye30 = @EFUELLER30[0];
$einhalt01a30 = substr($ye30,0,1500);
$einhalt02a30 = substr($ye30,1501,1500);
$einhalt03a30 = substr($ye30,3001,1500);
$einhalt04a30 = substr($ye30,4501,1500);
$einhalt05a30 = substr($ye30,6001,1500);
$einhalt06a30 = substr($ye30,7501,1500);
$einhalt07a30 = substr($ye30,9001,1500);
$einhalt08a30 = substr($ye30,10501,1500);
$einhalt09a30 = substr($ye30,12001,1500);


open (EFULL31, "5/31.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER31 = <EFULL31>;
close (EFULL31);
$ye31 = @EFUELLER31[0];
$einhalt01a31 = substr($ye31,0,1500);
$einhalt02a31 = substr($ye31,1501,1500);
$einhalt03a31 = substr($ye31,3001,1500);
$einhalt04a31 = substr($ye31,4501,1500);
$einhalt05a31 = substr($ye31,6001,1500);
$einhalt06a31 = substr($ye31,7501,1500);
$einhalt07a31 = substr($ye31,9001,1500);
$einhalt08a31 = substr($ye31,10501,1500);
$einhalt09a31 = substr($ye31,12001,1500);


open (EFULL32, "5/32.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER32 = <EFULL32>;
close (EFULL32);
$ye32 = @EFUELLER32[0];
$einhalt01a32 = substr($ye32,0,1500);
$einhalt02a32 = substr($ye32,1501,1500);
$einhalt03a32 = substr($ye32,3001,1500);
$einhalt04a32 = substr($ye32,4501,1500);
$einhalt05a32 = substr($ye32,6001,1500);
$einhalt06a32 = substr($ye32,7501,1500);
$einhalt07a32 = substr($ye32,9001,1500);
$einhalt08a32 = substr($ye32,10501,1500);
$einhalt09a32 = substr($ye32,12001,1500);


open (EFULL33, "5/33.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER33 = <EFULL33>;
close (EFULL33);
$ye33 = @EFUELLER33[0];
$einhalt01a33 = substr($ye33,0,1500);
$einhalt02a33 = substr($ye33,1501,1500);
$einhalt03a33 = substr($ye33,3001,1500);
$einhalt04a33 = substr($ye33,4501,1500);
$einhalt05a33 = substr($ye33,6001,1500);
$einhalt06a33 = substr($ye33,7501,1500);
$einhalt07a33 = substr($ye33,9001,1500);
$einhalt08a33 = substr($ye33,10501,1500);
$einhalt09a33 = substr($ye33,12001,1500);


open (EFULL34, "5/34.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER34 = <EFULL34>;
close (EFULL34);
$ye34 = @EFUELLER34[0];
$einhalt01a34 = substr($ye34,0,1500);
$einhalt02a34 = substr($ye34,1501,1500);
$einhalt03a34 = substr($ye34,3001,1500);
$einhalt04a34 = substr($ye34,4501,1500);
$einhalt05a34 = substr($ye34,6001,1500);
$einhalt06a34 = substr($ye34,7501,1500);
$einhalt07a34 = substr($ye34,9001,1500);
$einhalt08a34 = substr($ye34,10501,1500);
$einhalt09a34 = substr($ye34,12001,1500);


open (EFULL35, "5/35.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER35 = <EFULL35>;
close (EFULL35);
$ye35 = @EFUELLER35[0];
$einhalt01a35 = substr($ye35,0,1500);
$einhalt02a35 = substr($ye35,1501,1500);
$einhalt03a35 = substr($ye35,3001,1500);
$einhalt04a35 = substr($ye35,4501,1500);
$einhalt05a35 = substr($ye35,6001,1500);
$einhalt06a35 = substr($ye35,7501,1500);
$einhalt07a35 = substr($ye35,9001,1500);
$einhalt08a35 = substr($ye35,10501,1500);
$einhalt09a35 = substr($ye35,12001,1500);


open (EFULL36, "5/36.txt") || die "Datei1 nicht gefunden\n";
@EFUELLER36 = <EFULL36>;
close (EFULL36);
$ye36 = @EFUELLER36[0];
$einhalt01a36 = substr($ye36,0,1500);
$einhalt02a36 = substr($ye36,1501,1500);
$einhalt03a36 = substr($ye36,3001,1500);
$einhalt04a36 = substr($ye36,4501,1500);
$einhalt05a36 = substr($ye36,6001,1500);
$einhalt06a36 = substr($ye36,7501,1500);
$einhalt07a36 = substr($ye36,9001,1500);
$einhalt08a36 = substr($ye36,10501,1500);
$einhalt09a36 = substr($ye36,12001,1500);


chop $a01a1;
$c01a1 = $a01a1;
$a01a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a1 = "$a01a1".".$ext"; 

open (KEYWORD01a1, ">no1/$b01a1");
print KEYWORD01a1 "$head1$c01a1$head2<h2>$c01a1</h2> $ainhalt01a1 $binhalt01a1 $c01a1 $cinhalt01a1 $dinhalt01a1 $c01a1 $einhalt01a1  $end";
close (KEYWORD01a1);


chop $a02a1;
$c02a1 = $a02a1;
$a02a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a1 = "$a02a1".".$ext"; 

open (KEYWORD02a1, ">no1/$b02a1");
print KEYWORD02a1 "$head1$c02a1$head2 $ainhalt02a1 <h2>$c02a1</h2> $binhalt02a1 $c02a1 $cinhalt02a1 $dinhalt02a1 $c02a1  $end";
close (KEYWORD02a1);


chop $a03a1;
$c03a1 = $a03a1;
$a03a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a1 = "$a03a1".".$ext"; 

open (KEYWORD03a1, ">no1/$b03a1");
print KEYWORD03a1 "$head1$c03a1$head2<h1>$c03a1</h1> $ainhalt03a1 $binhalt03a1 $cinhalt03a1 $c03a1 $dinhalt03a1 $einhalt03a1 $c03a1 $end";
close (KEYWORD03a1);


chop $a04a1;
$c04a1 = $a04a1;
$a04a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a1 = "$a04a1".".$ext"; 

open (KEYWORD04a1, ">no1/$b04a1");
print KEYWORD04a1 "$head1$c04a1$head2<u>$c04a1</u> $ainhalt04a1 $c04a1 $binhalt04a1 $cinhalt04a1 $c04a1 $dinhalt04a1 $einhalt04a1  $end";
close (KEYWORD04a1);


chop $a05a1;
$c05a1 = $a05a1;
$a05a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a1 = "$a05a1".".$ext"; 

open (KEYWORD05a1, ">no1/$b05a1");
print KEYWORD05a1 "$head1$c05a1$head2<b>$c05a1</b> $ainhalt05a1 $c05a1 $binhalt05a1 $cinhalt05a1 $c05a1 $end";
close (KEYWORD05a1);


chop $a06a1;
$c06a1 = $a06a1;
$a06a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a1 = "$a06a1".".$ext"; 

open (KEYWORD06a1, ">no1/$b06a1");
print KEYWORD06a1 "$head1$c06a1$head2<h2>$c06a1</h2> $ainhalt06a1 $binhalt06a1 $c06a1 $cinhalt06a1 $dinhalt06a1 $c06a1 $einhalt06a1  $end";
close (KEYWORD06a1);


chop $a07a1;
$c07a1 = $a07a1;
$a07a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a1 = "$a07a1".".$ext"; 

open (KEYWORD07a1, ">no1/$b07a1");
print KEYWORD07a1 "$head1$c07a1$head2<h3>$c07a1</h3> $ainhalt07a1 $c07a1 $binhalt07a1 $cinhalt07a1 $c07a1 $dinhalt07a1 $einhalt07a1  $end";
close (KEYWORD07a1);


chop $a08a1;
$c08a1 = $a08a1;
$a08a1 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a1 = "$a08a1".".$ext"; 

open (KEYWORD08a1, ">no1/$b08a1");
print KEYWORD08a1 "$head1$c08a1$head2<h2>$c08a1</h2> $ainhalt08a1 $binhalt08a1 $c08a1 $cinhalt08a1 $c08a1 $dinhalt08a1 $end";
close (KEYWORD08a1);


open (KEYWORD00a1, ">no1/$HAUPT1");

print KEYWORD00a1 "$head1$kkka1$head2";
print KEYWORD00a1 "$ainhalt09a1 $kkka1 $binhalt09a1 $kkka1 $cinhalt09a1 $kkka1 $dinhalt09a1 $einhalt09a1 $kkka1 ";

print KEYWORD00a1 "<a href=$b01a1>$c01a1</a> ";
print KEYWORD00a1 "<a href=$b02a1>$c02a1</a> ";
print KEYWORD00a1 "<a href=$b03a1>$c03a1</a> ";
print KEYWORD00a1 "<a href=$b04a1>$c04a1</a> ";
print KEYWORD00a1 "<a href=$b05a1>$c05a1</a> ";
print KEYWORD00a1 "<a href=$b06a1>$c06a1</a> ";
print KEYWORD00a1 "<a href=$b07a1>$c07a1</a> ";
print KEYWORD00a1 "<a href=$b08a1>$c08a1</a> ";


print KEYWORD00a1 "$end";
close (KEYWORD00a1);


chop $a01a2;
$c01a2 = $a01a2;
$a01a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a2 = "$a01a2".".$ext"; 

open (KEYWORD01a2, ">no2/$b01a2");
print KEYWORD01a2 "$head1$c01a2$head2<h2>$c01a2</h2> $ainhalt01a2 $binhalt01a2 $c01a2 $cinhalt01a2 $dinhalt01a2 $c01a2 $einhalt01a2  $end";
close (KEYWORD01a2);


chop $a02a2;
$c02a2 = $a02a2;
$a02a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a2 = "$a02a2".".$ext"; 

open (KEYWORD02a2, ">no2/$b02a2");
print KEYWORD02a2 "$head1$c02a2$head2 $ainhalt02a2 <h1>$c02a2</h1> $binhalt02a2 $c02a2 $cinhalt02a2  $end";
close (KEYWORD02a2);


chop $a03a2;
$c03a2 = $a03a2;
$a03a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a2 = "$a03a2".".$ext"; 

open (KEYWORD03a2, ">no2/$b03a2");
print KEYWORD03a2 "$head1$c03a2$head2<h2>$c03a2</h2> $ainhalt03a2 $binhalt03a2 $c03a2 $cinhalt03a2 $c03a2 $dinhalt03a2 $einhalt03a2  $end";
close (KEYWORD03a2);


chop $a04a2;
$c04a2 = $a04a2;
$a04a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a2 = "$a04a2".".$ext"; 

open (KEYWORD04a2, ">no2/$b04a2");
print KEYWORD04a2 "$head1$c04a2$head2<font>$c04a2</font> $ainhalt04a2 $binhalt04a2 $c04a2 $cinhalt04a2 $dinhalt04a2 $end";
close (KEYWORD04a2);


chop $a05a2;
$c05a2 = $a05a2;
$a05a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a2 = "$a05a2".".$ext"; 

open (KEYWORD05a2, ">no2/$b05a2");
print KEYWORD05a2 "$head1$c05a2$head2<h2>$c05a2</h2> $ainhalt05a2 $c05a2 $binhalt05a2 $c05a2 $cinhalt05a2 $dinhalt05a2 $einhalt05a2  $end";
close (KEYWORD05a2);


chop $a06a2;
$c06a2 = $a06a2;
$a06a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a2 = "$a06a2".".$ext"; 

open (KEYWORD06a2, ">no2/$b06a2");
print KEYWORD06a2 "$head1$c06a2$head2 $ainhalt06a2 <h1>$c06a2</h1> $binhalt06a2 $c06a2 $cinhalt06a2 $c06a2 $dinhalt06a2 $einhalt06a2  $end";
close (KEYWORD06a2);


chop $a07a2;
$c07a2 = $a07a2;
$a07a2 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a2 = "$a07a2".".$ext"; 

open (KEYWORD07a2, ">no2/$b07a2");
print KEYWORD07a2 "$head1$c07a2$head2<h2>$c07a2</h2> $ainhalt07a2 $c07a2 $binhalt07a2 $cinhalt07a2 $dinhalt07a2 $c07a2 $einhalt07a2  $end";
close (KEYWORD07a2);


open (KEYWORD00a2, ">no2/$HAUPT1");

print KEYWORD00a2 "$head1$kkka2$head2";
print KEYWORD00a2 "$kkka2 $ainhalt09a2 $kkka2 $binhalt09a2 $cinhalt09a2 $dinhalt09a2 $kkka2 $einhalt09a2 ";

print KEYWORD00a2 "<a href=$b01a2>$c01a2</a> ";
print KEYWORD00a2 "<a href=$b02a2>$c02a2</a> ";
print KEYWORD00a2 "<a href=$b03a2>$c03a2</a> ";
print KEYWORD00a2 "<a href=$b04a2>$c04a2</a> ";
print KEYWORD00a2 "<a href=$b05a2>$c05a2</a> ";
print KEYWORD00a2 "<a href=$b06a2>$c06a2</a> ";
print KEYWORD00a2 "<a href=$b07a2>$c07a2</a> ";


print KEYWORD00a2 "$end";
close (KEYWORD00a2);


chop $a01a3;
$c01a3 = $a01a3;
$a01a3 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a3 = "$a01a3".".$ext"; 

open (KEYWORD01a3, ">no3/$b01a3");
print KEYWORD01a3 "$head1$c01a3$head2<h2>$c01a3</h2> $ainhalt01a3 $binhalt01a3 $c01a3 $cinhalt01a3 $dinhalt01a3 $c01a3 $einhalt01a3  $end";
close (KEYWORD01a3);


chop $a02a3;
$c02a3 = $a02a3;
$a02a3 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a3 = "$a02a3".".$ext"; 

open (KEYWORD02a3, ">no3/$b02a3");
print KEYWORD02a3 "$head1$c02a3$head2<h3>$c02a3</h3> $ainhalt02a3 $c02a3 $binhalt02a3 $cinhalt02a3 $c02a3 $dinhalt02a3 $einhalt02a3  $c02a3 $end";
close (KEYWORD02a3);


chop $a03a3;
$c03a3 = $a03a3;
$a03a3 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a3 = "$a03a3".".$ext"; 

open (KEYWORD03a3, ">no3/$b03a3");
print KEYWORD03a3 "$head1$c03a3$head2<b>$c03a3</b> $ainhalt03a3 $binhalt03a3 $c03a3 $cinhalt03a3 $end";
close (KEYWORD03a3);


chop $a04a3;
$c04a3 = $a04a3;
$a04a3 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a3 = "$a04a3".".$ext"; 

open (KEYWORD04a3, ">no3/$b04a3");
print KEYWORD04a3 "$head1$c04a3$head2<h2>$c04a3</h2> $ainhalt04a3 $binhalt04a3 $c04a3 $cinhalt04a3 $c04a3 $dinhalt04a3 $end";
close (KEYWORD04a3);


chop $a05a3;
$c05a3 = $a05a3;
$a05a3 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a3 = "$a05a3".".$ext"; 

open (KEYWORD05a3, ">no3/$b05a3");
print KEYWORD05a3 "$head1$c05a3$head2 $ainhalt05a3 <h1>$c05a3</h1> $binhalt05a3 $c05a3 $cinhalt05a3 $c05a3 $dinhalt05a3 $c05a3$einhalt05a3  $end";
close (KEYWORD05a3);


chop $a06a3;
$c06a3 = $a06a3;
$a06a3 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a3 = "$a06a3".".$ext"; 

open (KEYWORD06a3, ">no3/$b06a3");
print KEYWORD06a3 "$head1$c06a3$head2<h3>$c06a3</h3> $ainhalt06a3 $binhalt06a3 $c06a3 $cinhalt06a3 $dinhalt06a3 $einhalt06a3  $end";
close (KEYWORD06a3);


open (KEYWORD00a3, ">no3/$HAUPT1");

print KEYWORD00a3 "$head1$kkka3$head2";
print KEYWORD00a3 "$ainhalt09a3 $kkka3 $binhalt09a3 $cinhalt09a3 $kkka3 $dinhalt09a3 $einhalt09a3 ";

print KEYWORD00a3 "<a href=$b01a3>$c01a3</a> ";
print KEYWORD00a3 "<a href=$b02a3>$c02a3</a> ";
print KEYWORD00a3 "<a href=$b03a3>$c03a3</a> ";
print KEYWORD00a3 "<a href=$b04a3>$c04a3</a> ";
print KEYWORD00a3 "<a href=$b05a3>$c05a3</a> ";
print KEYWORD00a3 "<a href=$b06a3>$c06a3</a> ";


print KEYWORD00a3 "$end";
close (KEYWORD00a3);


chop $a01a4;
$c01a4 = $a01a4;
$a01a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a4 = "$a01a4".".$ext"; 

open (KEYWORD01a4, ">no4/$b01a4");
print KEYWORD01a4 "$head1$c01a4$head2<h2>$c01a4</h2> $ainhalt01a4 $binhalt01a4 $cinhalt01a4 $c01a4 $dinhalt01a4 $einhalt01a4  $end";
close (KEYWORD01a4);


chop $a02a4;
$c02a4 = $a02a4;
$a02a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a4 = "$a02a4".".$ext"; 

open (KEYWORD02a4, ">no4/$b02a4");
print KEYWORD02a4 "$head1$c02a4$head2<h2>$c02a4</h2> $ainhalt02a4 $binhalt02a4 $c02a4 $cinhalt02a4 $dinhalt02a4 $c02a4 $einhalt02a4  $end";
close (KEYWORD02a4);


chop $a03a4;
$c03a4 = $a03a4;
$a03a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a4 = "$a03a4".".$ext"; 

open (KEYWORD03a4, ">no4/$b03a4");
print KEYWORD03a4 "$head1$c03a4$head2 $ainhalt03a4 <h1>$c03a4</h1> $binhalt03a4 $c03a4 $cinhalt03a4 $dinhalt03a4 $c03a4 $einhalt03a4  $end";
close (KEYWORD03a4);


chop $a04a4;
$c04a4 = $a04a4;
$a04a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a4 = "$a04a4".".$ext"; 

open (KEYWORD04a4, ">no4/$b04a4");
print KEYWORD04a4 "$head1$c04a4$head2<b>$c04a4</b> $ainhalt04a4 $binhalt04a4 $c04a4 $cinhalt04a4 $end";
close (KEYWORD04a4);


chop $a05a4;
$c05a4 = $a05a4;
$a05a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a4 = "$a05a4".".$ext"; 

open (KEYWORD05a4, ">no4/$b05a4");
print KEYWORD05a4 "$head1$c05a4$head2<u>$c05a4</u> $ainhalt05a4 $binhalt05a4 $cinhalt05a4 $c05a4 $dinhalt05a4 $einhalt05a4  $end";
close (KEYWORD05a4);


chop $a06a4;
$c06a4 = $a06a4;
$a06a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a4 = "$a06a4".".$ext"; 

open (KEYWORD06a4, ">no4/$b06a4");
print KEYWORD06a4 "$head1$c06a4$head2<h2>$c06a4</h2> $ainhalt06a4 $c06a4 $binhalt06a4 $c06a4 $cinhalt06a4 $dinhalt06a4 $end";
close (KEYWORD06a4);


chop $a07a4;
$c07a4 = $a07a4;
$a07a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a4 = "$a07a4".".$ext"; 

open (KEYWORD07a4, ">no4/$b07a4");
print KEYWORD07a4 "$head1$c07a4$head2<strong>$c07a4</strong> $ainhalt07a4 $binhalt07a4 $c07a4 $cinhalt07a4 $dinhalt07a4 $c07a4 $einhalt07a4  $end";
close (KEYWORD07a4);


chop $a08a4;
$c08a4 = $a08a4;
$a08a4 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a4 = "$a08a4".".$ext"; 

open (KEYWORD08a4, ">no4/$b08a4");
print KEYWORD08a4 "$head1$c08a4$head2 $ainhalt08a4 <h1>$c08a4</h1> $binhalt08a4 $cinhalt08a4 $c08a4 $dinhalt08a4 $einhalt08a4  $end";
close (KEYWORD08a4);


open (KEYWORD00a4, ">no4/$HAUPT1");

print KEYWORD00a4 "$head1$kkka4$head2";
print KEYWORD00a4 "$kkka4 $ainhalt09a4 $kkka4 $binhalt09a4 $cinhalt09a4 $kkka4 $dinhalt09a4 $einhalt09a4 ";

print KEYWORD00a4 "<a href=$b01a4>$c01a4</a> ";
print KEYWORD00a4 "<a href=$b02a4>$c02a4</a> ";
print KEYWORD00a4 "<a href=$b03a4>$c03a4</a> ";
print KEYWORD00a4 "<a href=$b04a4>$c04a4</a> ";
print KEYWORD00a4 "<a href=$b05a4>$c05a4</a> ";
print KEYWORD00a4 "<a href=$b06a4>$c06a4</a> ";
print KEYWORD00a4 "<a href=$b07a4>$c07a4</a> ";
print KEYWORD00a4 "<a href=$b08a4>$c08a4</a> ";


print KEYWORD00a4 "$end";
close (KEYWORD00a4);


chop $a01a5;
$c01a5 = $a01a5;
$a01a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a5 = "$a01a5".".$ext"; 

open (KEYWORD01a5, ">no5/$b01a5");
print KEYWORD01a5 "$head1$c01a5$head2<h2>$c01a5</h2> $ainhalt01a5 $c01a5 $binhalt01a5 $c01a5 $cinhalt01a5 $c01a5 $dinhalt01a5 $c01a5 $einhalt01a5  $end";
close (KEYWORD01a5);


chop $a02a5;
$c02a5 = $a02a5;
$a02a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a5 = "$a02a5".".$ext"; 

open (KEYWORD02a5, ">no5/$b02a5");
print KEYWORD02a5 "$head1$c02a5$head2<h3>$c02a5</h3> $ainhalt02a5 $c02a5 $binhalt02a5 $cinhalt02a5 $dinhalt02a5 $end";
close (KEYWORD02a5);


chop $a03a5;
$c03a5 = $a03a5;
$a03a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a5 = "$a03a5".".$ext"; 

open (KEYWORD03a5, ">no5/$b03a5");
print KEYWORD03a5 "$head1$c03a5$head2<font>$c03a5</font> $ainhalt03a5 $binhalt03a5 $c03a5 $cinhalt03a5 $dinhalt03a5 $c03a5 $einhalt03a5  $end";
close (KEYWORD03a5);


chop $a04a5;
$c04a5 = $a04a5;
$a04a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a5 = "$a04a5".".$ext"; 

open (KEYWORD04a5, ">no5/$b04a5");
print KEYWORD04a5 "$head1$c04a5$head2<h2>$c04a5</h2> $ainhalt04a5 $binhalt04a5 $c04a5 $cinhalt04a5 $dinhalt04a5 $c04a5 $einhalt04a5  $end";
close (KEYWORD04a5);


chop $a05a5;
$c05a5 = $a05a5;
$a05a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a5 = "$a05a5".".$ext"; 

open (KEYWORD05a5, ">no5/$b05a5");
print KEYWORD05a5 "$head1$c05a5$head2 $ainhalt05a5 <h1>$c05a5</h1> $binhalt05a5 $c05a5 $cinhalt05a5 $end";
close (KEYWORD05a5);


chop $a06a5;
$c06a5 = $a06a5;
$a06a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a5 = "$a06a5".".$ext"; 

open (KEYWORD06a5, ">no5/$b06a5");
print KEYWORD06a5 "$head1$c06a5$head2<h3>$c06a5</h3> $ainhalt06a5 $c06a5 $binhalt06a5 $cinhalt06a5 $dinhalt06a5 $c06a5 $einhalt06a5  $end";
close (KEYWORD06a5);


chop $a07a5;
$c07a5 = $a07a5;
$a07a5 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a5 = "$a07a5".".$ext"; 

open (KEYWORD07a5, ">no5/$b07a5");
print KEYWORD07a5 "$head1$c07a5$head2 $ainhalt07a5 <h2>$c07a5</h2> $binhalt07a5 $cinhalt07a5 $c07a5 $dinhalt07a5 $einhalt07a5 $c07a5 $end";
close (KEYWORD07a5);


open (KEYWORD00a5, ">no5/$HAUPT1");

print KEYWORD00a5 "$head1$kkka5$head2";
print KEYWORD00a5 "$ainhalt09a5 $kkka5 $binhalt09a5 $kkka5 $cinhalt09a5 $kkka5 $dinhalt09a5 $kkka5 $einhalt09a5";

print KEYWORD00a5 "<a href=$b01a5>$c01a5</a> ";
print KEYWORD00a5 "<a href=$b02a5>$c02a5</a> ";
print KEYWORD00a5 "<a href=$b03a5>$c03a5</a> ";
print KEYWORD00a5 "<a href=$b04a5>$c04a5</a> ";
print KEYWORD00a5 "<a href=$b05a5>$c05a5</a> ";
print KEYWORD00a5 "<a href=$b06a5>$c06a5</a> ";
print KEYWORD00a5 "<a href=$b07a5>$c07a5</a> ";


print KEYWORD00a5 "$end";
close (KEYWORD00a5);


chop $a01a6;
$c01a6 = $a01a6;
$a01a6 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a6 = "$a01a6".".$ext"; 

open (KEYWORD01a6, ">no6/$b01a6");
print KEYWORD01a6 "$head1$c01a6$head2<h2>$c01a6</h2> $ainhalt01a6 $binhalt01a6 $c01a6 $cinhalt01a6 $dinhalt01a6 $einhalt01a6  $end";
close (KEYWORD01a6);


chop $a02a6;
$c02a6 = $a02a6;
$a02a6 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a6 = "$a02a6".".$ext"; 

open (KEYWORD02a6, ">no6/$b02a6");
print KEYWORD02a6 "$head1$c02a6$head2<h1>$c02a6</h1> $ainhalt02a6 $binhalt02a6 $c02a6 $cinhalt02a6 $dinhalt02a6 $c02a6 $einhalt02a6  $end";
close (KEYWORD02a6);


chop $a03a6;
$c03a6 = $a03a6;
$a03a6 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a6 = "$a03a6".".$ext"; 

open (KEYWORD03a6, ">no6/$b03a6");
print KEYWORD03a6 "$head1$c03a6$head2 $ainhalt03a6 <h2>$c03a6</h2> $binhalt03a6 $cinhalt03a6 $c03a6 $dinhalt03a6 $c03a6 $einhalt03a6  $end";
close (KEYWORD03a6);


chop $a04a6;
$c04a6 = $a04a6;
$a04a6 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a6 = "$a04a6".".$ext"; 

open (KEYWORD04a6, ">no6/$b04a6");
print KEYWORD04a6 "$head1$c04a6$head2<font>$c04a6</font> $ainhalt04a6 $binhalt04a6 $c04a6 $cinhalt04a6 $end";
close (KEYWORD04a6);


chop $a05a6;
$c05a6 = $a05a6;
$a05a6 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a6 = "$a05a6".".$ext"; 

open (KEYWORD05a6, ">no6/$b05a6");
print KEYWORD05a6 "$head1$c05a6$head2<h2>$c05a6</h2> $ainhalt05a6 $binhalt05a6 $c05a6 $cinhalt05a6 $dinhalt05a6 $c05a6 $einhalt05a6  $end";
close (KEYWORD05a6);


chop $a06a6;
$c06a6 = $a06a6;
$a06a6 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a6 = "$a06a6".".$ext"; 

open (KEYWORD06a6, ">no6/$b06a6");
print KEYWORD06a6 "$head1$c06a6$head2<u>$c06a6</u> $ainhalt06a6 $c06a6 $binhalt06a6 $c06a6 $cinhalt06a6 $dinhalt06a6 $end";
close (KEYWORD06a6);


open (KEYWORD00a6, ">no6/$HAUPT1");

print KEYWORD00a6 "$head1$kkka6$head2";
print KEYWORD00a6 "$ainhalt09a6 $binhalt09a6 $kkka6 $cinhalt09a6 $kkka6 $dinhalt09a6 $kkka6 $einhalt09a6 ";

print KEYWORD00a6 "<a href=$b01a6>$c01a6</a> ";
print KEYWORD00a6 "<a href=$b02a6>$c02a6</a> ";
print KEYWORD00a6 "<a href=$b03a6>$c03a6</a> ";
print KEYWORD00a6 "<a href=$b04a6>$c04a6</a> ";
print KEYWORD00a6 "<a href=$b05a6>$c05a6</a> ";
print KEYWORD00a6 "<a href=$b06a6>$c06a6</a> ";

print KEYWORD00a6 "$end";
close (KEYWORD00a6);


chop $a01a7;
$c01a7 = $a01a7;
$a01a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a7 = "$a01a7".".$ext"; 

open (KEYWORD01a7, ">no7/$b01a7");
print KEYWORD01a7 "$head1$c01a7$head2<b>$c01a7</b> $ainhalt01a7 $binhalt01a7 $c01a7 $cinhalt01a7 $dinhalt01a7 $c01a7 $einhalt01a7 $end";
close (KEYWORD01a7);


chop $a02a7;
$c02a7 = $a02a7;
$a02a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a7 = "$a02a7".".$ext"; 

open (KEYWORD02a7, ">no7/$b02a7");
print KEYWORD02a7 "$head1$c02a7$head2 $ainhalt02a7 <h2>$c02a7</h2> $binhalt02a7 $c02a7 $cinhalt02a7 $dinhalt02a7 $c02a7 $einhalt02a7 $end";
close (KEYWORD02a7);


chop $a03a7;
$c03a7 = $a03a7;
$a03a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a7 = "$a03a7".".$ext"; 

open (KEYWORD03a7, ">no7/$b03a7");
print KEYWORD03a7 "$head1$c03a7$head2<h2>$c03a7</h2> $ainhalt03a7 $binhalt03a7 $c03a7 $cinhalt03a7 $end";
close (KEYWORD03a7);


chop $a04a7;
$c04a7 = $a04a7;
$a04a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a7 = "$a04a7".".$ext"; 

open (KEYWORD04a7, ">no7/$b04a7");
print KEYWORD04a7 "$head1$c04a7$head2 $ainhalt04a7 <h1>$c04a7</h1> $binhalt04a7 $c04a7 $cinhalt04a7 $c04a7 $dinhalt04a7 $einhalt04a7 $end";
close (KEYWORD04a7);


chop $a05a7;
$c05a7 = $a05a7;
$a05a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a7 = "$a05a7".".$ext"; 

open (KEYWORD05a7, ">no7/$b05a7");
print KEYWORD05a7 "$head1$c05a7$head2<h2>$c05a7</h2> $ainhalt05a7 $binhalt05a7 $c05a7 $cinhalt05a7 $dinhalt05a7 $c05a7 $einhalt05a7 $end";
close (KEYWORD05a7);


chop $a06a7;
$c06a7 = $a06a7;
$a06a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a7 = "$a06a7".".$ext"; 

open (KEYWORD06a7, ">no7/$b06a7");
print KEYWORD06a7 "$head1$c06a7$head2<font>$c06a7</font> $ainhalt06a7 $binhalt06a7 $c06a7 $cinhalt06a7 $dinhalt06a7 $end";
close (KEYWORD06a7);


chop $a07a7;
$c07a7 = $a07a7;
$a07a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a7 = "$a07a7".".$ext"; 

open (KEYWORD07a7, ">no7/$b07a7");
print KEYWORD07a7 "$head1$c07a7$head2<h2>$c07a7</h2> $ainhalt07a7 $binhalt07a7 $c07a7 $cinhalt07a7 $dinhalt07a7 $c07a7 $einhalt07a7 $end";
close (KEYWORD07a7);


chop $a08a7;
$c08a7 = $a08a7;
$a08a7 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a7 = "$a08a7".".$ext"; 

open (KEYWORD08a7, ">no7/$b08a7");
print KEYWORD08a7 "$head1$c08a7$head2<h3>$c08a7</h3> $ainhalt08a7 $binhalt08a7 $c08a7 $cinhalt08a7 $dinhalt08a7 $c08a7 $einhalt08a7 $end";
close (KEYWORD08a7);


open (KEYWORD00a7, ">no7/$HAUPT1");

print KEYWORD00a7 "$head1$kkka7$head2";
print KEYWORD00a7 "$kkka7 $ainhalt09a7 $binhalt09a7 $kkka7 $cinhalt09a7 $dinhalt09a7 $kkka7 $einhalt09a7 ";

print KEYWORD00a7 "<a href=$b01a7>$c01a7</a> ";
print KEYWORD00a7 "<a href=$b02a7>$c02a7</a> ";
print KEYWORD00a7 "<a href=$b03a7>$c03a7</a> ";
print KEYWORD00a7 "<a href=$b04a7>$c04a7</a> ";
print KEYWORD00a7 "<a href=$b05a7>$c05a7</a> ";
print KEYWORD00a7 "<a href=$b06a7>$c06a7</a> ";
print KEYWORD00a7 "<a href=$b07a7>$c07a7</a> ";
print KEYWORD00a7 "<a href=$b08a7>$c08a7</a> ";


print KEYWORD00a7 "$end";
close (KEYWORD00a7);


chop $a01a8;
$c01a8 = $a01a8;
$a01a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a8 = "$a01a8".".$ext"; 

open (KEYWORD01a8, ">no8/$b01a8");
print KEYWORD01a8 "$head1$c01a8$head2<h2>$c01a8</h2> $ainhalt01a8 $binhalt01a8 $c01a8 $cinhalt01a8 $dinhalt01a8 $c01a8 $einhalt01a8  $end";
close (KEYWORD01a8);


chop $a02a8;
$c02a8 = $a02a8;
$a02a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a8 = "$a02a8".".$ext"; 

open (KEYWORD02a8, ">no8/$b02a8");
print KEYWORD02a8 "$head1$c02a8$head2<h1>$c02a8</h1> $ainhalt02a8 $binhalt02a8 $c02a8 $cinhalt02a8 $dinhalt02a8 $einhalt02a8  $end";
close (KEYWORD02a8);


chop $a03a8;
$c03a8 = $a03a8;
$a03a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a8 = "$a03a8".".$ext"; 

open (KEYWORD03a8, ">no8/$b03a8");
print KEYWORD03a8 "$head1$c03a8$head2<strong>$c03a8</strong> $ainhalt03a8 $binhalt03a8 $c03a8 $cinhalt03a8 $dinhalt03a8 $c03a8 $einhalt03a8  $end";
close (KEYWORD03a8);


chop $a04a8;
$c04a8 = $a04a8;
$a04a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a8 = "$a04a8".".$ext"; 

open (KEYWORD04a8, ">no8/$b04a8");
print KEYWORD04a8 "$head1$c04a8$head2<b>$c04a8</b> $ainhalt04a8 $binhalt04a8 $c04a8 $cinhalt04a8 $dinhalt04a8 $end";
close (KEYWORD04a8);


chop $a05a8;
$c05a8 = $a05a8;
$a05a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a8 = "$a05a8".".$ext"; 

open (KEYWORD05a8, ">no8/$b05a8");
print KEYWORD05a8 "$head1$c05a8$head2 $ainhalt05a8 <h2>$c05a8</h2> $binhalt05a8 $cinhalt05a8 $c05a8 $dinhalt05a8 $c05a8 $einhalt05a8  $end";
close (KEYWORD05a8);


chop $a06a8;
$c06a8 = $a06a8;
$a06a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a8 = "$a06a8".".$ext"; 

open (KEYWORD06a8, ">no8/$b06a8");
print KEYWORD06a8 "$head1$c06a8$head2<h2>$c06a8</h2> $ainhalt06a8 $c06a8 $binhalt06a8 $c06a8 $cinhalt06a8 $dinhalt06a8 $c06a8 $einhalt06a8  $end";
close (KEYWORD06a8);


chop $a07a8;
$c07a8 = $a07a8;
$a07a8 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a8 = "$a07a8".".$ext"; 

open (KEYWORD07a8, ">no8/$b07a8");
print KEYWORD07a8 "$head1$c07a8$head2 $ainhalt07a8 <h1>$c07a8</h1> $binhalt07a8 $c07a8 $cinhalt07a8 $end";
close (KEYWORD07a8);


open (KEYWORD00a8, ">no8/$HAUPT1");

print KEYWORD00a8 "$head1$kkka8$head2";
print KEYWORD00a8 "$ainhalt09a8 $kkka8 $binhalt09a8 $cinhalt09a8 $kkka8 $dinhalt09a8 $kkka8 $einhalt09a8 ";

print KEYWORD00a8 "<a href=$b01a8>$c01a8</a> ";
print KEYWORD00a8 "<a href=$b02a8>$c02a8</a> ";
print KEYWORD00a8 "<a href=$b03a8>$c03a8</a> ";
print KEYWORD00a8 "<a href=$b04a8>$c04a8</a> ";
print KEYWORD00a8 "<a href=$b05a8>$c05a8</a> ";
print KEYWORD00a8 "<a href=$b06a8>$c06a8</a> ";
print KEYWORD00a8 "<a href=$b07a8>$c07a8</a> ";


print KEYWORD00a8 "$end";
close (KEYWORD00a8);


chop $a01a9;
$c01a9 = $a01a9;
$a01a9 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a9 = "$a01a9".".$ext"; 

open (KEYWORD01a9, ">no9/$b01a9");
print KEYWORD01a9 "$head1$c01a9$head2<h2>$c01a9</h2> $ainhalt01a9 $binhalt01a9 $c01a9 $cinhalt01a9 $dinhalt01a9 $c01a9 $einhalt01a9  $end";
close (KEYWORD01a9);


chop $a02a9;
$c02a9 = $a02a9;
$a02a9 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a9 = "$a02a9".".$ext"; 

open (KEYWORD02a9, ">no9/$b02a9");
print KEYWORD02a9 "$head1$c02a9$head2 $ainhalt02a9 <h2>$c02a9</h2> $binhalt02a9 $cinhalt02a9 $c02a9 $dinhalt02a9 $c02a9 $einhalt02a9  $end";
close (KEYWORD02a9);


chop $a03a9;
$c03a9 = $a03a9;
$a03a9 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a9 = "$a03a9".".$ext"; 

open (KEYWORD03a9, ">no9/$b03a9");
print KEYWORD03a9 "$head1$c03a9$head2<font>$c03a9</font> $ainhalt03a9 $c03a9 $binhalt03a9 $cinhalt03a9 $c03a9 $dinhalt03a9 $einhalt03a9  $end";
close (KEYWORD03a9);


chop $a04a9;
$c04a9 = $a04a9;
$a04a9 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a9 = "$a04a9".".$ext"; 

open (KEYWORD04a9, ">no9/$b04a9");
print KEYWORD04a9 "$head1$c04a9$head2<h2>$c04a9</h2> $ainhalt04a9 $c04a9 $binhalt04a9 $cinhalt04a9 $c04a9 $dinhalt04a9 $einhalt04a9  $end";
close (KEYWORD04a9);


chop $a05a9;
$c05a9 = $a05a9;
$a05a9 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a9 = "$a05a9".".$ext"; 

open (KEYWORD05a9, ">no9/$b05a9");
print KEYWORD05a9 "$head1$c05a9$head2<b>$c05a9</b> $ainhalt05a9 $c05a9 $binhalt05a9 $cinhalt05a9 $c05a9 $dinhalt05a9 $end";
close (KEYWORD05a9);


chop $a06a9;
$c06a9 = $a06a9;
$a06a9 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a9 = "$a06a9".".$ext"; 

open (KEYWORD06a9, ">no9/$b06a9");
print KEYWORD06a9 "$head1$c06a9$head2<u>$c06a9</u> $ainhalt06a9 $c06a9 $binhalt06a9 $cinhalt06a9  $end";
close (KEYWORD06a9);


open (KEYWORD00a9, ">no9/$HAUPT1");

print KEYWORD00a9 "$head1$kkka9$head2";
print KEYWORD00a9 "$kkka9 $ainhalt09a9 $binhalt09a9 $kkka9 $cinhalt09a9 $kkka9 $dinhalt09a9 $einhalt09a9 ";

print KEYWORD00a9 "<a href=$b01a9>$c01a9</a> ";
print KEYWORD00a9 "<a href=$b02a9>$c02a9</a> ";
print KEYWORD00a9 "<a href=$b03a9>$c03a9</a> ";
print KEYWORD00a9 "<a href=$b04a9>$c04a9</a> ";
print KEYWORD00a9 "<a href=$b05a9>$c05a9</a> ";
print KEYWORD00a9 "<a href=$b06a9>$c06a9</a> ";


print KEYWORD00a9 "$end";
close (KEYWORD00a9);


chop $a01a10;
$c01a10 = $a01a10;
$a01a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a10 = "$a01a10".".$ext"; 

open (KEYWORD01a10, ">no10/$b01a10");
print KEYWORD01a10 "$head1$c01a10$head2<h2>$c01a10</h2> $ainhalt01a10 $c01a10 $binhalt01a10 $c01a10 $cinhalt01a10 $c01a10 $dinhalt01a10 $einhalt01a10  $end";
close (KEYWORD01a10);


chop $a02a10;
$c02a10 = $a02a10;
$a02a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a10 = "$a02a10".".$ext"; 

open (KEYWORD02a10, ">no10/$b02a10");
print KEYWORD02a10 "$head1$c02a10$head2 $ainhalt02a10 <h2>$c02a10</h2> $binhalt02a10 $c02a10 $cinhalt02a10 $dinhalt02a10 $c02a10 $einhalt02a10  $end";
close (KEYWORD02a10);


chop $a03a10;
$c03a10 = $a03a10;
$a03a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a10 = "$a03a10".".$ext"; 

open (KEYWORD03a10, ">no10/$b03a10");
print KEYWORD03a10 "$head1$c03a10$head2<h3>$c03a10</h3> $ainhalt03a10 $binhalt03a10 $c03a10 $cinhalt03a10 $dinhalt03a10 $c03a10 $einhalt03a10  $end";
close (KEYWORD03a10);


chop $a04a10;
$c04a10 = $a04a10;
$a04a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a10 = "$a04a10".".$ext"; 

open (KEYWORD04a10, ">no10/$b04a10");
print KEYWORD04a10 "$head1$c04a10$head2 $ainhalt04a10 <h2>$c04a10</h2> $binhalt04a10 $c04a10 $cinhalt04a10 $c04a10 $dinhalt04a10 $einhalt04a10  $end";
close (KEYWORD04a10);


chop $a05a10;
$c05a10 = $a05a10;
$a05a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a10 = "$a05a10".".$ext"; 

open (KEYWORD05a10, ">no10/$b05a10");
print KEYWORD05a10 "$head1$c05a10$head2<h2>$c05a10</h2> $ainhalt05a10 $binhalt05a10 $c05a10 $cinhalt05a10 $end";
close (KEYWORD05a10);


chop $a06a10;
$c06a10 = $a06a10;
$a06a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a10 = "$a06a10".".$ext"; 

open (KEYWORD06a10, ">no10/$b06a10");
print KEYWORD06a10 "$head1$c06a10$head2<strong>$c06a10</strong> $ainhalt06a10 $binhalt06a10 $c06a10 $cinhalt06a10 $dinhalt06a10 $c06a10 $einhalt06a10  $end";
close (KEYWORD06a10);


chop $a07a10;
$c07a10 = $a07a10;
$a07a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a10 = "$a07a10".".$ext"; 

open (KEYWORD07a10, ">no10/$b07a10");
print KEYWORD07a10 "$head1$c07a10$head2<h2>$c07a10</h2> $ainhalt07a10 $binhalt07a10 $cinhalt07a10 $c07a10 $dinhalt07a10 $einhalt07a10  $end";
close (KEYWORD07a10);


chop $a08a10;
$c08a10 = $a08a10;
$a08a10 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a10 = "$a08a10".".$ext"; 

open (KEYWORD08a10, ">no10/$b08a10");
print KEYWORD08a10 "$head1$c08a10$head2 $ainhalt08a10 <h1>$c08a10</h1> $binhalt08a10 $c08a10 $cinhalt08a10 $dinhalt08a10 $end";
close (KEYWORD08a10);


open (KEYWORD00a10, ">no10/$HAUPT1");

print KEYWORD00a10 "$head1$kkka10$head2";
print KEYWORD00a10 "$ainhalt09a10 $kkka10 $binhalt09a10 $cinhalt09a10 $kkka10 $dinhalt09a10 $einhalt09a10 $kkka10 ";

print KEYWORD00a10 "<a href=$b01a10>$c01a10</a> ";
print KEYWORD00a10 "<a href=$b02a10>$c02a10</a> ";
print KEYWORD00a10 "<a href=$b03a10>$c03a10</a> ";
print KEYWORD00a10 "<a href=$b04a10>$c04a10</a> ";
print KEYWORD00a10 "<a href=$b05a10>$c05a10</a> ";
print KEYWORD00a10 "<a href=$b06a10>$c06a10</a> ";
print KEYWORD00a10 "<a href=$b07a10>$c07a10</a> ";
print KEYWORD00a10 "<a href=$b08a10>$c08a10</a> ";


print KEYWORD00a10 "$end";
close (KEYWORD00a10);


chop $a01a11;
$c01a11 = $a01a11;
$a01a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a11 = "$a01a11".".$ext"; 

open (KEYWORD01a11, ">no11/$b01a11");
print KEYWORD01a11 "$head1$c01a11$head2<h2>$c01a11</h2> $ainhalt01a11 $c01a11 $binhalt01a11 $c01a11 $cinhalt01a11 $c01a11 $dinhalt01a11 $c01a11 $einhalt01a11  $end";
close (KEYWORD01a11);


chop $a02a11;
$c02a11 = $a02a11;
$a02a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a11 = "$a02a11".".$ext"; 

open (KEYWORD02a11, ">no11/$b02a11");
print KEYWORD02a11 "$head1$c02a11$head2 $ainhalt02a11 <h2>$c02a11</h2> $binhalt02a11 $c02a11 $cinhalt02a11 $end";
close (KEYWORD02a11);


chop $a03a11;
$c03a11 = $a03a11;
$a03a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a11 = "$a03a11".".$ext"; 

open (KEYWORD03a11, ">no11/$b03a11");
print KEYWORD03a11 "$head1$c03a11$head2<h1>$c03a11</h1> $ainhalt03a11 $binhalt03a11 $c03a11 $cinhalt03a11 $dinhalt03a11 $c03a11 $einhalt03a11  $end";
close (KEYWORD03a11);


chop $a04a11;
$c04a11 = $a04a11;
$a04a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a11 = "$a04a11".".$ext"; 

open (KEYWORD04a11, ">no11/$b04a11");
print KEYWORD04a11 "$head1$c04a11$head2<h2>$c04a11</h2> $ainhalt04a11 $binhalt04a11 $c04a11 $cinhalt04a11 $dinhalt04a11 $c04a11 $einhalt04a11  $end";
close (KEYWORD04a11);


chop $a05a11;
$c05a11 = $a05a11;
$a05a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a11 = "$a05a11".".$ext"; 

open (KEYWORD05a11, ">no11/$b05a11");
print KEYWORD05a11 "$head1$c05a11$head2<h2>$c05a11</h2> $ainhalt05a11 $c05a11 $binhalt05a11 $c05a11 $cinhalt05a11 $dinhalt05a11 $einhalt05a11  $end";
close (KEYWORD05a11);


chop $a06a11;
$c06a11 = $a06a11;
$a06a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a11 = "$a06a11".".$ext"; 

open (KEYWORD06a11, ">no11/$b06a11");
print KEYWORD06a11 "$head1$c06a11$head2<u>$c06a11</u> $ainhalt06a11 $c06a11 $binhalt06a11 $cinhalt06a11 $c06a11 $dinhalt06a11 $end";
close (KEYWORD06a11);


chop $a07a11;
$c07a11 = $a07a11;
$a07a11 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a11 = "$a07a11".".$ext"; 

open (KEYWORD07a11, ">no11/$b07a11");
print KEYWORD07a11 "$head1$c07a11$head2<font>$c07a11</font> $ainhalt07a11 $c07a11 $binhalt07a11 $cinhalt07a11 $c07a11 $dinhalt07a11 $einhalt07a11  $end";
close (KEYWORD07a11);


open (KEYWORD00a11, ">no11/$HAUPT1");

print KEYWORD00a11 "$head1$kkka11$head2";
print KEYWORD00a11 "$ainhalt09a11 $kkka11 $binhalt09a11 $kkka11 $cinhalt09a11 $kkka11 $dinhalt09a11 $einhalt09a11 ";

print KEYWORD00a11 "<a href=$b01a11>$c01a11</a> ";
print KEYWORD00a11 "<a href=$b02a11>$c02a11</a> ";
print KEYWORD00a11 "<a href=$b03a11>$c03a11</a> ";
print KEYWORD00a11 "<a href=$b04a11>$c04a11</a> ";
print KEYWORD00a11 "<a href=$b05a11>$c05a11</a> ";
print KEYWORD00a11 "<a href=$b06a11>$c06a11</a> ";
print KEYWORD00a11 "<a href=$b07a11>$c07a11</a> ";


print KEYWORD00a11 "$end";
close (KEYWORD00a11);


chop $a01a12;
$c01a12 = $a01a12;
$a01a12 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a12 = "$a01a12".".$ext"; 

open (KEYWORD01a12, ">no12/$b01a12");
print KEYWORD01a12 "$head1$c01a12$head2<h2>$c01a12</h2> $ainhalt01a12 $binhalt01a12 $c01a12 $cinhalt01a12 $dinhalt01a12 $c01a12 $einhalt01a12  $end";
close (KEYWORD01a12);


chop $a02a12;
$c02a12 = $a02a12;
$a02a12 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a12 = "$a02a12".".$ext"; 

open (KEYWORD02a12, ">no12/$b02a12");
print KEYWORD02a12 "$head1$c02a12$head2<strong>$c02a12</strong> $ainhalt02a12 $c02a12 $binhalt02a12 $cinhalt02a12 $c02a12 $dinhalt02a12 $einhalt02a12  $end";
close (KEYWORD02a12);


chop $a03a12;
$c03a12 = $a03a12;
$a03a12 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a12 = "$a03a12".".$ext"; 

open (KEYWORD03a12, ">no12/$b03a12");
print KEYWORD03a12 "$head1$c03a12$head2 $ainhalt03a12 <h1>$c03a12</h1> $binhalt03a12 $cinhalt03a12 $c03a12 $dinhalt03a12 $c03a12 $einhalt03a12  $end";
close (KEYWORD03a12);


chop $a04a12;
$c04a12 = $a04a12;
$a04a12 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a12 = "$a04a12".".$ext"; 

open (KEYWORD04a12, ">no12/$b04a12");
print KEYWORD04a12 "$head1$c04a12$head2<h3>$c04a12</h3> $ainhalt04a12 $c04a12 $binhalt04a12 $c04a12 $cinhalt04a12 $dinhalt04a12 $end";
close (KEYWORD04a12);


chop $a05a12;
$c05a12 = $a05a12;
$a05a12 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a12 = "$a05a12".".$ext"; 

open (KEYWORD05a12, ">no12/$b05a12");
print KEYWORD05a12 "$head1$c05a12$head2<h2>$c05a12</h2> $ainhalt05a12 $binhalt05a12 $c05a12 $cinhalt05a12 $dinhalt05a12 $einhalt05a12  $end";
close (KEYWORD05a12);


chop $a06a12;
$c06a12 = $a06a12;
$a06a12 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a12 = "$a06a12".".$ext"; 

open (KEYWORD06a12, ">no12/$b06a12");
print KEYWORD06a12 "$head1$c06a12$head2<u>$c06a12</u> $ainhalt06a12 $c06a12 $binhalt06a12 $cinhalt06a12 $end";
close (KEYWORD06a12);


open (KEYWORD00a12, ">no12/$HAUPT1");

print KEYWORD00a12 "$head1$kkka12$head2";
print KEYWORD00a12 "$ainhalt09a12 $kkka12 $binhalt09a12 $cinhalt09a12 $kkka12 $dinhalt09a12 $einhalt09a12 ";

print KEYWORD00a12 "<a href=$b01a12>$c01a12</a> ";
print KEYWORD00a12 "<a href=$b02a12>$c02a12</a> ";
print KEYWORD00a12 "<a href=$b03a12>$c03a12</a> ";
print KEYWORD00a12 "<a href=$b04a12>$c04a12</a> ";
print KEYWORD00a12 "<a href=$b05a12>$c05a12</a> ";
print KEYWORD00a12 "<a href=$b06a12>$c06a12</a> ";


print KEYWORD00a12 "$end";
close (KEYWORD00a12);


chop $a01a13;
$c01a13 = $a01a13;
$a01a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a13 = "$a01a13".".$ext"; 

open (KEYWORD01a13, ">no13/$b01a13");
print KEYWORD01a13 "$head1$c01a13$head2<h2>$c01a13</h2> $ainhalt01a13 $binhalt01a13 $c01a13 $cinhalt01a13 $dinhalt01a13 $c01a13 $einhalt01a13 $end";
close (KEYWORD01a13);


chop $a02a13;
$c02a13 = $a02a13;
$a02a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a13 = "$a02a13".".$ext"; 

open (KEYWORD02a13, ">no13/$b02a13");
print KEYWORD02a13 "$head1$c02a13$head2 $ainhalt02a13 <h2>$c02a13</h2> $binhalt02a13 $cinhalt02a13 $c02a13 $dinhalt02a13 $einhalt02a13 $end";
close (KEYWORD02a13);


chop $a03a13;
$c03a13 = $a03a13;
$a03a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a13 = "$a03a13".".$ext"; 

open (KEYWORD03a13, ">no13/$b03a13");
print KEYWORD03a13 "$head1$c03a13$head2 $ainhalt03a13 <h2>$c03a13</h2> $binhalt03a13 $cinhalt03a13 $c03a13 $dinhalt03a13 $einhalt03a13 $end";
close (KEYWORD03a13);


chop $a04a13;
$c04a13 = $a04a13;
$a04a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a13 = "$a04a13".".$ext"; 

open (KEYWORD04a13, ">no13/$b04a13");
print KEYWORD04a13 "$head1$c04a13$head2<h1>$c04a13</h1> $ainhalt04a13 $c04a13 $binhalt04a13 $c04a13 $cinhalt04a13 $end";
close (KEYWORD04a13);


chop $a05a13;
$c05a13 = $a05a13;
$a05a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a13 = "$a05a13".".$ext"; 

open (KEYWORD05a13, ">no13/$b05a13");
print KEYWORD05a13 "$head1$c05a13$head2<u>$c05a13</u> $ainhalt05a13 $binhalt05a13 $c05a13 $cinhalt05a13 $dinhalt05a13 $einhalt05a13 $end";
close (KEYWORD05a13);


chop $a06a13;
$c06a13 = $a06a13;
$a06a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a13 = "$a06a13".".$ext"; 

open (KEYWORD06a13, ">no13/$b06a13");
print KEYWORD06a13 "$head1$c06a13$head2<font>$c06a13</font> $ainhalt06a13 $binhalt06a13 $c06a13 $cinhalt06a13 $dinhalt06a13 $c06a13 $einhalt06a13 $end";
close (KEYWORD06a13);


chop $a07a13;
$c07a13 = $a07a13;
$a07a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a13 = "$a07a13".".$ext"; 

open (KEYWORD07a13, ">no13/$b07a13");
print KEYWORD07a13 "$head1$c07a13$head2<h2>$c07a13</h2> $ainhalt07a13 $c07a13 $binhalt07a13 $c07a13 $cinhalt07a13 $dinhalt07a13 $end";
close (KEYWORD07a13);


chop $a08a13;
$c08a13 = $a08a13;
$a08a13 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a13 = "$a08a13".".$ext"; 

open (KEYWORD08a13, ">no13/$b08a13");
print KEYWORD08a13 "$head1$c08a13$head2 $ainhalt08a13 <h1>$c08a13</h1> $binhalt08a13 $c08a13 $cinhalt08a13 $dinhalt08a13 $c08a13 $einhalt08a13 $end";
close (KEYWORD08a13);


open (KEYWORD00a13, ">no13/$HAUPT1");

print KEYWORD00a13 "$head1$kkka13$head2";
print KEYWORD00a13 "$ainhalt09a13 $kkka13 $binhalt09a13 $cinhalt09a13 $dinhalt09a13 $kkka13 $einhalt09a13 ";

print KEYWORD00a13 "<a href=$b01a13>$c01a13</a> ";
print KEYWORD00a13 "<a href=$b02a13>$c02a13</a> ";
print KEYWORD00a13 "<a href=$b03a13>$c03a13</a> ";
print KEYWORD00a13 "<a href=$b04a13>$c04a13</a> ";
print KEYWORD00a13 "<a href=$b05a13>$c05a13</a> ";
print KEYWORD00a13 "<a href=$b06a13>$c06a13</a> ";
print KEYWORD00a13 "<a href=$b07a13>$c07a13</a> ";
print KEYWORD00a13 "<a href=$b08a13>$c08a13</a> ";


print KEYWORD00a13 "$end";
close (KEYWORD00a13);


chop $a01a14;
$c01a14 = $a01a14;
$a01a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a14 = "$a01a14".".$ext"; 

open (KEYWORD01a14, ">no14/$b01a14");
print KEYWORD01a14 "$head1$c01a14$head2<h2>$c01a14</h2> $ainhalt01a14 $binhalt01a14 $c01a14 $cinhalt01a14 $dinhalt01a14 $c01a14 $einhalt01a14 $end";
close (KEYWORD01a14);


chop $a02a14;
$c02a14 = $a02a14;
$a02a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a14 = "$a02a14".".$ext"; 

open (KEYWORD02a14, ">no14/$b02a14");
print KEYWORD02a14 "$head1$c02a14$head2<h3>$c02a14</h3> $ainhalt02a14 $binhalt02a14 $c02a14 $cinhalt02a14 $dinhalt02a14 $c02a14 $einhalt02a14 $end";
close (KEYWORD02a14);


chop $a03a14;
$c03a14 = $a03a14;
$a03a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a14 = "$a03a14".".$ext"; 

open (KEYWORD03a14, ">no14/$b03a14");
print KEYWORD03a14 "$head1$c03a14$head2 $ainhalt03a14 <h2>$c03a14</h2> $binhalt03a14 $c03a14 $cinhalt03a14 $c03a14 $dinhalt03a14 $einhalt03a14 $end";
close (KEYWORD03a14);


chop $a04a14;
$c04a14 = $a04a14;
$a04a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a14 = "$a04a14".".$ext"; 

open (KEYWORD04a14, ">no14/$b04a14");
print KEYWORD04a14 "$head1$c04a14$head2 $ainhalt04a14 <h1>$c04a14</h1> $binhalt04a14 $cinhalt04a14 $end";
close (KEYWORD04a14);


chop $a05a14;
$c05a14 = $a05a14;
$a05a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a14 = "$a05a14".".$ext"; 

open (KEYWORD05a14, ">no14/$b05a14");
print KEYWORD05a14 "$head1$c05a14$head2<h2>$c05a14</h2> $ainhalt05a14 $binhalt05a14 $c05a14 $cinhalt05a14 $dinhalt05a14 $c05a14 $einhalt05a14 $end";
close (KEYWORD05a14);


chop $a06a14;
$c06a14 = $a06a14;
$a06a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a14 = "$a06a14".".$ext"; 

open (KEYWORD06a14, ">no14/$b06a14");
print KEYWORD06a14 "$head1$c06a14$head2 $ainhalt06a14 <h3>$c06a14</h3> $binhalt06a14 $c06a14 $cinhalt06a14 $c06a14 $dinhalt06a14 $end";
close (KEYWORD06a14);


chop $a07a14;
$c07a14 = $a07a14;
$a07a14 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a14 = "$a07a14".".$ext"; 

open (KEYWORD07a14, ">no14/$b07a14");
print KEYWORD07a14 "$head1$c07a14$head2 $ainhalt07a14 <h1>$c07a14</h1> $binhalt07a14 $cinhalt07a14 $c07a14 $dinhalt07a14 $einhalt07a14 $end";
close (KEYWORD07a14);


open (KEYWORD00a14, ">no14/$HAUPT1");

print KEYWORD00a14 "$head1$kkka14$head2";
print KEYWORD00a14 "$kkka14 $ainhalt09a14 $binhalt09a14 $cinhalt09a14 $kkka14 $dinhalt09a14 $einhalt09a14 ";

print KEYWORD00a14 "<a href=$b01a14>$c01a14</a> ";
print KEYWORD00a14 "<a href=$b02a14>$c02a14</a> ";
print KEYWORD00a14 "<a href=$b03a14>$c03a14</a> ";
print KEYWORD00a14 "<a href=$b04a14>$c04a14</a> ";
print KEYWORD00a14 "<a href=$b05a14>$c05a14</a> ";
print KEYWORD00a14 "<a href=$b06a14>$c06a14</a> ";
print KEYWORD00a14 "<a href=$b07a14>$c07a14</a> ";


print KEYWORD00a14 "$end";
close (KEYWORD00a14);


chop $a01a15;
$c01a15 = $a01a15;
$a01a15 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a15 = "$a01a15".".$ext"; 

open (KEYWORD01a15, ">no15/$b01a15");
print KEYWORD01a15 "$head1$c01a15$head2<font>$c01a15</font> $ainhalt01a15 $c01a15 $binhalt01a15 $cinhalt01a15 $dinhalt01a15 $c01a15 $einhalt01a15 $end";
close (KEYWORD01a15);


chop $a02a15;
$c02a15 = $a02a15;
$a02a15 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a15 = "$a02a15".".$ext"; 

open (KEYWORD02a15, ">no15/$b02a15");
print KEYWORD02a15 "$head1$c02a15$head2<b>$c02a15</b> $ainhalt02a15 $binhalt02a15 $c02a15 $cinhalt02a15 $dinhalt02a15 $c02a15 $einhalt02a15 $end";
close (KEYWORD02a15);


chop $a03a15;
$c03a15 = $a03a15;
$a03a15 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a15 = "$a03a15".".$ext"; 

open (KEYWORD03a15, ">no15/$b03a15");
print KEYWORD03a15 "$head1$c03a15$head2 $ainhalt03a15 <h1>$c03a15</h1> $binhalt03a15 $c03a15 $cinhalt03a15 $dinhalt03a15 $c03a15 $einhalt03a15 $end";
close (KEYWORD03a15);


chop $a04a15;
$c04a15 = $a04a15;
$a04a15 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a15 = "$a04a15".".$ext"; 

open (KEYWORD04a15, ">no15/$b04a15");
print KEYWORD04a15 "$head1$c04a15$head2<h2>$c04a15</h2> $ainhalt04a15 $binhalt04a15 $c04a15 $cinhalt04a15 $dinhalt04a15 $end";
close (KEYWORD04a15);


chop $a05a15;
$c05a15 = $a05a15;
$a05a15 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a15 = "$a05a15".".$ext"; 

open (KEYWORD05a15, ">no15/$b05a15");
print KEYWORD05a15 "$head1$c05a15$head2 $ainhalt05a15 <h3>$c05a15</h3> $binhalt05a15 $c05a15 $cinhalt05a15 $end";
close (KEYWORD05a15);


chop $a06a15;
$c06a15 = $a06a15;
$a06a15 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a15 = "$a06a15".".$ext"; 

open (KEYWORD06a15, ">no15/$b06a15");
print KEYWORD06a15 "$head1$c06a15$head2<u>$c06a15</u> $ainhalt06a15 $binhalt06a15 $c06a15 $cinhalt06a15 $c06a15 $dinhalt06a15 $einhalt06a15 $end";
close (KEYWORD06a15);


open (KEYWORD00a15, ">no15/$HAUPT1");

print KEYWORD00a15 "$head1$kkka15$head2";
print KEYWORD00a15 "$ainhalt09a15 $kkka15 $binhalt09a15 $cinhalt09a15 $kkka15 $dinhalt09a15 $einhalt09a15 ";

print KEYWORD00a15 "<a href=$b01a15>$c01a15</a> ";
print KEYWORD00a15 "<a href=$b02a15>$c02a15</a> ";
print KEYWORD00a15 "<a href=$b03a15>$c03a15</a> ";
print KEYWORD00a15 "<a href=$b04a15>$c04a15</a> ";
print KEYWORD00a15 "<a href=$b05a15>$c05a15</a> ";
print KEYWORD00a15 "<a href=$b06a15>$c06a15</a> ";


print KEYWORD00a15 "$end";
close (KEYWORD00a15);


chop $a01a16;
$c01a16 = $a01a16;
$a01a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a16 = "$a01a16".".$ext"; 

open (KEYWORD01a16, ">no16/$b01a16");
print KEYWORD01a16 "$head1$c01a16$head2<strong>$c01a16</strong> $ainhalt01a16 $binhalt01a16 $c01a16 $cinhalt01a16 $dinhalt01a16 $einhalt01a16 $end";
close (KEYWORD01a16);


chop $a02a16;
$c02a16 = $a02a16;
$a02a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a16 = "$a02a16".".$ext"; 

open (KEYWORD02a16, ">no16/$b02a16");
print KEYWORD02a16 "$head1$c02a16$head2<h2>$c02a16</h2> $ainhalt02a16 $c02a16 $binhalt02a16 $cinhalt02a16 $dinhalt02a16 $end";
close (KEYWORD02a16);


chop $a03a16;
$c03a16 = $a03a16;
$a03a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a16 = "$a03a16".".$ext"; 

open (KEYWORD03a16, ">no16/$b03a16");
print KEYWORD03a16 "$head1$c03a16$head2<font>$c03a16</font> $ainhalt03a16 $binhalt03a16 $c03a16 $cinhalt03a16 $dinhalt03a16 $c03a16 $einhalt03a16 $end";
close (KEYWORD03a16);


chop $a04a16;
$c04a16 = $a04a16;
$a04a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a16 = "$a04a16".".$ext"; 

open (KEYWORD04a16, ">no16/$b04a16");
print KEYWORD04a16 "$head1$c04a16$head2<b>$c04a16</b> $ainhalt04a16 $c04a16 $binhalt04a16 $cinhalt04a16 $c04a16 $dinhalt04a16 $einhalt04a16 $end";
close (KEYWORD04a16);


chop $a05a16;
$c05a16 = $a05a16;
$a05a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a16 = "$a05a16".".$ext"; 

open (KEYWORD05a16, ">no16/$b05a16");
print KEYWORD05a16 "$head1$c05a16$head2<u>$c05a16</u> $ainhalt05a16 $binhalt05a16 $c05a16 $cinhalt05a16 $dinhalt05a16 $c05a16 $einhalt05a16 $end";
close (KEYWORD05a16);


chop $a06a16;
$c06a16 = $a06a16;
$a06a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a16 = "$a06a16".".$ext"; 

open (KEYWORD06a16, ">no16/$b06a16");
print KEYWORD06a16 "$head1$c06a16$head2 $ainhalt06a16 <h3>$c06a16</h3> $binhalt06a16 $c06a16 $cinhalt06a16 $end";
close (KEYWORD06a16);


chop $a07a16;
$c07a16 = $a07a16;
$a07a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a16 = "$a07a16".".$ext"; 

open (KEYWORD07a16, ">no16/$b07a16");
print KEYWORD07a16 "$head1$c07a16$head2<h2>$c07a16</h2> $ainhalt07a16 $c07a16 $binhalt07a16 $c07a16 $cinhalt07a16 $c07a16 $dinhalt07a16 $einhalt07a16 $end";
close (KEYWORD07a16);


chop $a08a16;
$c08a16 = $a08a16;
$a08a16 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a16 = "$a08a16".".$ext"; 

open (KEYWORD08a16, ">no16/$b08a16");
print KEYWORD08a16 "$head1$c08a16$head2 $ainhalt08a16 <h1>$c08a16</h1> $binhalt08a16 $c08a16 $cinhalt08a16 $dinhalt08a16 $einhalt08a16 $c08a16 $end";
close (KEYWORD08a16);


open (KEYWORD00a16, ">no16/$HAUPT1");

print KEYWORD00a16 "$head1$kkka16$head2";
print KEYWORD00a16 "$ainhalt09a16 $kkka16 $binhalt09a16 $kkka16 $cinhalt09a16 $dinhalt09a16 $kkka16 $einhalt09a16 ";

print KEYWORD00a16 "<a href=$b01a16>$c01a16</a> ";
print KEYWORD00a16 "<a href=$b02a16>$c02a16</a> ";
print KEYWORD00a16 "<a href=$b03a16>$c03a16</a> ";
print KEYWORD00a16 "<a href=$b04a16>$c04a16</a> ";
print KEYWORD00a16 "<a href=$b05a16>$c05a16</a> ";
print KEYWORD00a16 "<a href=$b06a16>$c06a16</a> ";
print KEYWORD00a16 "<a href=$b07a16>$c07a16</a> ";
print KEYWORD00a16 "<a href=$b08a16>$c08a16</a> ";


print KEYWORD00a16 "$end";
close (KEYWORD00a16);


chop $a01a17;
$c01a17 = $a01a17;
$a01a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a17 = "$a01a17".".$ext"; 

open (KEYWORD01a17, ">no17/$b01a17");
print KEYWORD01a17 "$head1$c01a17$head2<font>$c01a17</font> $ainhalt01a17 $c01a17 $binhalt01a17 $cinhalt01a17 $dinhalt01a17 $c01a17 $einhalt01a17 $end";
close (KEYWORD01a17);


chop $a02a17;
$c02a17 = $a02a17;
$a02a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a17 = "$a02a17".".$ext"; 

open (KEYWORD02a17, ">no17/$b02a17");
print KEYWORD02a17 "$head1$c02a17$head2<strong>$c02a17</strong> $ainhalt02a17 $c02a17 $binhalt02a17 $cinhalt02a17 $dinhalt02a17 $c02a17 $einhalt02a17 $end";
close (KEYWORD02a17);


chop $a03a17;
$c03a17 = $a03a17;
$a03a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a17 = "$a03a17".".$ext"; 

open (KEYWORD03a17, ">no17/$b03a17");
print KEYWORD03a17 "$head1$c03a17$head2 $ainhalt03a17 <h1>$c03a17</h1> $binhalt03a17 $cinhalt03a17 $c03a17 $dinhalt03a17 $einhalt03a17 $end";
close (KEYWORD03a17);


chop $a04a17;
$c04a17 = $a04a17;
$a04a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a17 = "$a04a17".".$ext"; 

open (KEYWORD04a17, ">no17/$b04a17");
print KEYWORD04a17 "$head1$c04a17$head2 $ainhalt04a17 <h2>$c04a17</h2> $binhalt04a17 $c04a17 $cinhalt04a17 $dinhalt04a17 $end";
close (KEYWORD04a17);


chop $a05a17;
$c05a17 = $a05a17;
$a05a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a17 = "$a05a17".".$ext"; 

open (KEYWORD05a17, ">no17/$b05a17");
print KEYWORD05a17 "$head1$c05a17$head2<u>$c05a17</u> $ainhalt05a17 $c05a17 $binhalt05a17 $c05a17 $cinhalt05a17 $c05a17 $dinhalt05a17 $c05a17 $einhalt05a17 $end";
close (KEYWORD05a17);


chop $a06a17;
$c06a17 = $a06a17;
$a06a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a17 = "$a06a17".".$ext"; 

open (KEYWORD06a17, ">no17/$b06a17");
print KEYWORD06a17 "$head1$c06a17$head2<b>$c06a17</b> $ainhalt06a17 $binhalt06a17 $c06a17 $cinhalt06a17 $dinhalt06a17 $c06a17 $einhalt06a17 $end";
close (KEYWORD06a17);


chop $a07a17;
$c07a17 = $a07a17;
$a07a17 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a17 = "$a07a17".".$ext"; 

open (KEYWORD07a17, ">no17/$b07a17");
print KEYWORD07a17 "$head1$c07a17$head2 $ainhalt07a17 <h3>$c07a17</h3> $binhalt07a17 $c07a17 $cinhalt07a17 $dinhalt07a17 $end";
close (KEYWORD07a17);


open (KEYWORD00a17, ">no17/$HAUPT1");

print KEYWORD00a17 "$head1$kkka17$head2";
print KEYWORD00a17 "$ainhalt09a17 $kkka17 $binhalt09a17 $cinhalt09a17 $kkka17 $dinhalt09a17 $einhalt09a17 ";

print KEYWORD00a17 "<a href=$b01a17>$c01a17</a> ";
print KEYWORD00a17 "<a href=$b02a17>$c02a17</a> ";
print KEYWORD00a17 "<a href=$b03a17>$c03a17</a> ";
print KEYWORD00a17 "<a href=$b04a17>$c04a17</a> ";
print KEYWORD00a17 "<a href=$b05a17>$c05a17</a> ";
print KEYWORD00a17 "<a href=$b06a17>$c06a17</a> ";
print KEYWORD00a17 "<a href=$b07a17>$c07a17</a> ";


print KEYWORD00a17 "$end";
close (KEYWORD00a17);


chop $a01a18;
$c01a18 = $a01a18;
$a01a18 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a18 = "$a01a18".".$ext"; 

open (KEYWORD01a18, ">no18/$b01a18");
print KEYWORD01a18 "$head1$c01a18$head2 $ainhalt01a18 <h1>$c01a18</h1> $binhalt01a18 $c01a18 $cinhalt01a18 $dinhalt01a18 $c01a18 $einhalt01a18 $end";
close (KEYWORD01a18);


chop $a02a18;
$c02a18 = $a02a18;
$a02a18 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a18 = "$a02a18".".$ext"; 

open (KEYWORD02a18, ">no18/$b02a18");
print KEYWORD02a18 "$head1$c02a18$head2 $ainhalt02a18 <h2>$c02a18</h2> $binhalt02a18 $c02a18 $cinhalt02a18 $dinhalt02a18 $c02a18 $einhalt02a18 $end";
close (KEYWORD02a18);


chop $a03a18;
$c03a18 = $a03a18;
$a03a18 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a18 = "$a03a18".".$ext"; 

open (KEYWORD03a18, ">no18/$b03a18");
print KEYWORD03a18 "$head1$c03a18$head2 $ainhalt03a18 <h3>$c03a18</h3> $binhalt03a18 $c03a18 $cinhalt03a18 $c03a18 $dinhalt03a18 $einhalt03a18 $end";
close (KEYWORD03a18);


chop $a04a18;
$c04a18 = $a04a18;
$a04a18 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a18 = "$a04a18".".$ext"; 

open (KEYWORD04a18, ">no18/$b04a18");
print KEYWORD04a18 "$head1$c04a18$head2 $ainhalt04a18 <strong>$c04a18</strong> $binhalt04a18 $cinhalt04a18 $c04a18 $dinhalt04a18 $einhalt04a18 $end";
close (KEYWORD04a18);


chop $a05a18;
$c05a18 = $a05a18;
$a05a18 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a18 = "$a05a18".".$ext"; 

open (KEYWORD05a18, ">no18/$b05a18");
print KEYWORD05a18 "$head1$c05a18$head2 $ainhalt05a18 <u>$c05a18</u> $binhalt05a18 $c05a18 $cinhalt05a18 $end";
close (KEYWORD05a18);


chop $a06a18;
$c06a18 = $a06a18;
$a06a18 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a18 = "$a06a18".".$ext"; 

open (KEYWORD06a18, ">no18/$b06a18");
print KEYWORD06a18 "$head1$c06a18$head2 $ainhalt06a18 <b>$c06a18</b> $binhalt06a18 $c06a18 $cinhalt06a18 $end";
close (KEYWORD06a18);


open (KEYWORD00a18, ">no18/$HAUPT1");

print KEYWORD00a18 "$head1$kkka18$head2";
print KEYWORD00a18 "$kkka18 $ainhalt09a18 $binhalt09a18 $kkka18 $cinhalt09a18 $dinhalt09a18 $einhalt09a18 ";

print KEYWORD00a18 "<a href=$b01a18>$c01a18</a> ";
print KEYWORD00a18 "<a href=$b02a18>$c02a18</a> ";
print KEYWORD00a18 "<a href=$b03a18>$c03a18</a> ";
print KEYWORD00a18 "<a href=$b04a18>$c04a18</a> ";
print KEYWORD00a18 "<a href=$b05a18>$c05a18</a> ";
print KEYWORD00a18 "<a href=$b06a18>$c06a18</a> ";


print KEYWORD00a18 "$end";
close (KEYWORD00a18);


chop $a01a19;
$c01a19 = $a01a19;
$a01a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a19 = "$a01a19".".$ext"; 

open (KEYWORD01a19, ">no19/$b01a19");
print KEYWORD01a19 "$head1$c01a19$head2<h1>$c01a19</h1> $ainhalt01a19 $binhalt01a19 $c01a19 $cinhalt01a19 $dinhalt01a19 $c01a19 $einhalt01a19 $end";
close (KEYWORD01a19);


chop $a02a19;
$c02a19 = $a02a19;
$a02a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a19 = "$a02a19".".$ext"; 

open (KEYWORD02a19, ">no19/$b02a19");
print KEYWORD02a19 "$head1$c02a19$head2<h3>$c02a19</h3> $ainhalt02a19 $c02a19 $binhalt02a19 $cinhalt02a19 $c02a19 $dinhalt02a19 $einhalt02a19 $end";
close (KEYWORD02a19);


chop $a03a19;
$c03a19 = $a03a19;
$a03a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a19 = "$a03a19".".$ext"; 

open (KEYWORD03a19, ">no19/$b03a19");
print KEYWORD03a19 "$head1$c03a19$head2<h2>$c03a19</h2> $ainhalt03a19 $c03a19 $binhalt03a19 $cinhalt03a19 $dinhalt03a19 $end";
close (KEYWORD03a19);


chop $a04a19;
$c04a19 = $a04a19;
$a04a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a19 = "$a04a19".".$ext"; 

open (KEYWORD04a19, ">no19/$b04a19");
print KEYWORD04a19 "$head1$c04a19$head2 $ainhalt04a19 <b>$c04a19</b> $binhalt04a19 $cinhalt04a19 $c04a19 $dinhalt04a19 $einhalt04a19 $end";
close (KEYWORD04a19);


chop $a05a19;
$c05a19 = $a05a19;
$a05a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a19 = "$a05a19".".$ext"; 

open (KEYWORD05a19, ">no19/$b05a19");
print KEYWORD05a19 "$head1$c05a19$head2<font>$c05a19</font> $ainhalt05a19 $c05a19 $binhalt05a19 $c05a19 $cinhalt05a19 $dinhalt05a19 $c05a19 $einhalt05a19 $end";
close (KEYWORD05a19);


chop $a06a19;
$c06a19 = $a06a19;
$a06a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a19 = "$a06a19".".$ext"; 

open (KEYWORD06a19, ">no19/$b06a19");
print KEYWORD06a19 "$head1$c06a19$head2<h2>$c06a19</h2> $ainhalt06a19 $c06a19 $binhalt06a19 $cinhalt06a19 $dinhalt06a19 $c06a19 $einhalt06a19 $end";
close (KEYWORD06a19);


chop $a07a19;
$c07a19 = $a07a19;
$a07a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a19 = "$a07a19".".$ext"; 

open (KEYWORD07a19, ">no19/$b07a19");
print KEYWORD07a19 "$head1$c07a19$head2<em>$c07a19</em> $ainhalt07a19 $c07a19 $binhalt07a19 $c07a19 $cinhalt07a19 $dinhalt07a19 $einhalt07a19 $end";
close (KEYWORD07a19);


chop $a08a19;
$c08a19 = $a08a19;
$a08a19 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a19 = "$a08a19".".$ext"; 

open (KEYWORD08a19, ">no19/$b08a19");
print KEYWORD08a19 "$head1$c08a19$head2 $ainhalt08a19 <h2>$c08a19</h2> $binhalt08a19 $c08a19 $cinhalt08a19 $dinhalt08a19 $c08a19 $einhalt08a19 $end";
close (KEYWORD08a19);


open (KEYWORD00a19, ">no19/$HAUPT1");

print KEYWORD00a19 "$head1$kkka19$head2";
print KEYWORD00a19 "$kkka19 $ainhalt09a19 $binhalt09a19 $cinhalt09a19 $kkka19 $dinhalt09a19 $kkka19 $einhalt09a19 ";

print KEYWORD00a19 "<a href=$b01a19>$c01a19</a> ";
print KEYWORD00a19 "<a href=$b02a19>$c02a19</a> ";
print KEYWORD00a19 "<a href=$b03a19>$c03a19</a> ";
print KEYWORD00a19 "<a href=$b04a19>$c04a19</a> ";
print KEYWORD00a19 "<a href=$b05a19>$c05a19</a> ";
print KEYWORD00a19 "<a href=$b06a19>$c06a19</a> ";
print KEYWORD00a19 "<a href=$b07a19>$c07a19</a> ";
print KEYWORD00a19 "<a href=$b08a19>$c08a19</a> ";


print KEYWORD00a19 "$end";
close (KEYWORD00a19);


chop $a01a20;
$c01a20 = $a01a20;
$a01a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a20 = "$a01a20".".$ext"; 

open (KEYWORD01a20, ">no20/$b01a20");
print KEYWORD01a20 "$head1$c01a20$head2<h2>$c01a20</h2> $ainhalt01a20 $binhalt01a20 $c01a20 $cinhalt01a20 $dinhalt01a20 $c01a20 $einhalt01a20 $end";
close (KEYWORD01a20);


chop $a02a20;
$c02a20 = $a02a20;
$a02a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a20 = "$a02a20".".$ext"; 

open (KEYWORD02a20, ">no20/$b02a20");
print KEYWORD02a20 "$head1$c02a20$head2 $ainhalt02a20 <h2>$c02a20</h2> $binhalt02a20 $c02a20 $cinhalt02a20 $dinhalt02a20 $c02a20 $einhalt02a20 $end";
close (KEYWORD02a20);


chop $a03a20;
$c03a20 = $a03a20;
$a03a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a20 = "$a03a20".".$ext"; 

open (KEYWORD03a20, ">no20/$b03a20");
print KEYWORD03a20 "$head1$c03a20$head2<h1>$c03a20</h1> $ainhalt03a20 $c03a20 $binhalt03a20 $cinhalt03a20 $end";
close (KEYWORD03a20);


chop $a04a20;
$c04a20 = $a04a20;
$a04a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a20 = "$a04a20".".$ext"; 

open (KEYWORD04a20, ">no20/$b04a20");
print KEYWORD04a20 "$head1$c04a20$head2 $ainhalt04a20 <h3>$c04a20</h3> $binhalt04a20 $c04a20 $cinhalt04a20 $c04a20 $dinhalt04a20 $einhalt04a20 $end";
close (KEYWORD04a20);


chop $a05a20;
$c05a20 = $a05a20;
$a05a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a20 = "$a05a20".".$ext"; 

open (KEYWORD05a20, ">no20/$b05a20");
print KEYWORD05a20 "$head1$c05a20$head2<font>$c05a20</font> $ainhalt05a20 $c05a20 $binhalt05a20 $cinhalt05a20 $dinhalt05a20 $c05a20 $einhalt05a20 $end";
close (KEYWORD05a20);


chop $a06a20;
$c06a20 = $a06a20;
$a06a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a20 = "$a06a20".".$ext"; 

open (KEYWORD06a20, ">no20/$b06a20");
print KEYWORD06a20 "$head1$c06a20$head2 $ainhalt06a20 <h2>$c06a20</h2> $binhalt06a20 $c06a20 $cinhalt06a20 $c06a20 $dinhalt06a20 $einhalt06a20 $end";
close (KEYWORD06a20);


chop $a07a20;
$c07a20 = $a07a20;
$a07a20 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a20 = "$a07a20".".$ext"; 

open (KEYWORD07a20, ">no20/$b07a20");
print KEYWORD07a20 "$head1$c07a20$head2<b>$c07a20</b> $ainhalt07a20 $c07a20 $binhalt07a20 $cinhalt07a20 $c07a20 $dinhalt07a20 $einhalt07a20 $end";
close (KEYWORD07a20);


open (KEYWORD00a20, ">no20/$HAUPT1");

print KEYWORD00a20 "$head1$kkka20$head2";
print KEYWORD00a20 "$ainhalt09a20 $kkka20 $binhalt09a20 $kkka20 $cinhalt09a20 $dinhalt09a20 $kkka20 $einhalt09a20 ";

print KEYWORD00a20 "<a href=$b01a20>$c01a20</a> ";
print KEYWORD00a20 "<a href=$b02a20>$c02a20</a> ";
print KEYWORD00a20 "<a href=$b03a20>$c03a20</a> ";
print KEYWORD00a20 "<a href=$b04a20>$c04a20</a> ";
print KEYWORD00a20 "<a href=$b05a20>$c05a20</a> ";
print KEYWORD00a20 "<a href=$b06a20>$c06a20</a> ";
print KEYWORD00a20 "<a href=$b07a20>$c07a20</a> ";

print KEYWORD00a20 "$end";
close (KEYWORD00a20);


chop $a01a21;
$c01a21 = $a01a21;
$a01a21 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a21 = "$a01a21".".$ext"; 

open (KEYWORD01a21, ">no21/$b01a21");
print KEYWORD01a21 "$head1$c01a21$head2 $ainhalt01a21 <h2>$c01a21</h2> $binhalt01a21 $c01a21 $cinhalt01a21 $dinhalt01a21 $einhalt01a21 $end";
close (KEYWORD01a21);


chop $a02a21;
$c02a21 = $a02a21;
$a02a21 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a21 = "$a02a21".".$ext"; 

open (KEYWORD02a21, ">no21/$b02a21");
print KEYWORD02a21 "$head1$c02a21$head2<b>$c02a21</b> $ainhalt02a21 $c02a21 $binhalt02a21 $cinhalt02a21 $c02a21 $dinhalt02a21 $einhalt02a21 $end";
close (KEYWORD02a21);


chop $a03a21;
$c03a21 = $a03a21;
$a03a21 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a21 = "$a03a21".".$ext"; 

open (KEYWORD03a21, ">no21/$b03a21");
print KEYWORD03a21 "$head1$c03a21$head2 $ainhalt03a21 <h1>$c03a21</h1> $binhalt03a21 $c03a21 $cinhalt03a21 $dinhalt03a21 $end";
close (KEYWORD03a21);


chop $a04a21;
$c04a21 = $a04a21;
$a04a21 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a21 = "$a04a21".".$ext"; 

open (KEYWORD04a21, ">no21/$b04a21");
print KEYWORD04a21 "$head1$c04a21$head2<em>$c04a21</em> $ainhalt04a21 $c04a21 $binhalt04a21 $cinhalt04a21 $dinhalt04a21 $c04a21 $einhalt04a21 $end";
close (KEYWORD04a21);


chop $a05a21;
$c05a21 = $a05a21;
$a05a21 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a21 = "$a05a21".".$ext"; 

open (KEYWORD05a21, ">no21/$b05a21");
print KEYWORD05a21 "$head1$c05a21$head2<font>$c05a21</font> $ainhalt05a21 $c05a21 $binhalt05a21 $c05a21 $cinhalt05a21 $dinhalt05a21 $einhalt05a21 $end";
close (KEYWORD05a21);


chop $a06a21;
$c06a21 = $a06a21;
$a06a21 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a21 = "$a06a21".".$ext"; 

open (KEYWORD06a21, ">no21/$b06a21");
print KEYWORD06a21 "$head1$c06a21$head2<u>$c06a21</u> $ainhalt06a21 $c06a21 $binhalt06a21 $cinhalt06a21 $c06a21 $dinhalt06a21 $einhalt06a21 $end";
close (KEYWORD06a21);


open (KEYWORD00a21, ">no21/$HAUPT1");

print KEYWORD00a21 "$head1$kkka21$head2";
print KEYWORD00a21 "$ainhalt09a21 $kkka21 $binhalt09a21 $cinhalt09a21 $kkka21 $dinhalt09a21 $einhalt09a21 ";

print KEYWORD00a21 "<a href=$b01a21>$c01a21</a> ";
print KEYWORD00a21 "<a href=$b02a21>$c02a21</a> ";
print KEYWORD00a21 "<a href=$b03a21>$c03a21</a> ";
print KEYWORD00a21 "<a href=$b04a21>$c04a21</a> ";
print KEYWORD00a21 "<a href=$b05a21>$c05a21</a> ";
print KEYWORD00a21 "<a href=$b06a21>$c06a21</a> ";


print KEYWORD00a21 "$end";
close (KEYWORD00a21);


chop $a01a22;
$c01a22 = $a01a22;
$a01a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a22 = "$a01a22".".$ext"; 

open (KEYWORD01a22, ">no22/$b01a22");
print KEYWORD01a22 "$head1$c01a22$head2 $ainhalt01a22 <h3>$c01a22</h3> $binhalt01a22 $c01a22 $cinhalt01a22 $dinhalt01a22 $c01a22 $einhalt01a22 $end";
close (KEYWORD01a22);


chop $a02a22;
$c02a22 = $a02a22;
$a02a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a22 = "$a02a22".".$ext"; 

open (KEYWORD02a22, ">no22/$b02a22");
print KEYWORD02a22 "$head1$c02a22$head2 $ainhalt02a22 <h1>$c02a22</h1> $binhalt02a22 $c02a22 $cinhalt02a22 $dinhalt02a22 $c02a22 $einhalt02a22 $end";
close (KEYWORD02a22);


chop $a03a22;
$c03a22 = $a03a22;
$a03a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a22 = "$a03a22".".$ext"; 

open (KEYWORD03a22, ">no22/$b03a22");
print KEYWORD03a22 "$head1$c03a22$head2 $ainhalt03a22 <h2>$c03a22</h2> $binhalt03a22 $c03a22 $cinhalt03a22 $dinhalt03a22 $einhalt03a22 $end";
close (KEYWORD03a22);


chop $a04a22;
$c04a22 = $a04a22;
$a04a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a22 = "$a04a22".".$ext"; 

open (KEYWORD04a22, ">no22/$b04a22");
print KEYWORD04a22 "$head1$c04a22$head2<b>$c04a22</b> $ainhalt04a22 $c04a22 $binhalt04a22 $cinhalt04a22 $c04a22 $dinhalt04a22 $einhalt04a22 $end";
close (KEYWORD04a22);


chop $a05a22;
$c05a22 = $a05a22;
$a05a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a22 = "$a05a22".".$ext"; 

open (KEYWORD05a22, ">no22/$b05a22");
print KEYWORD05a22 "$head1$c05a22$head2 $ainhalt05a22 <u>$c05a22</u> $binhalt05a22 $c05a22 $cinhalt05a22 $dinhalt05a22 $c05a22 $einhalt05a22 $end";
close (KEYWORD05a22);


chop $a06a22;
$c06a22 = $a06a22;
$a06a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a22 = "$a06a22".".$ext"; 

open (KEYWORD06a22, ">no22/$b06a22");
print KEYWORD06a22 "$head1$c06a22$head2 $ainhalt06a22 <h1>$c06a22</h1> $c06a22 $binhalt06a22 $cinhalt06a22 $c06a22 $dinhalt06a22 $einhalt06a22 $end";
close (KEYWORD06a22);


chop $a07a22;
$c07a22 = $a07a22;
$a07a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a22 = "$a07a22".".$ext"; 

open (KEYWORD07a22, ">no22/$b07a22");
print KEYWORD07a22 "$head1$c07a22$head2<h2>$c07a22</h2> $ainhalt07a22 $c07a22 $binhalt07a22 $c07a22 $cinhalt07a22 $dinhalt07a22 $einhalt07a22 $end";
close (KEYWORD07a22);


chop $a08a22;
$c08a22 = $a08a22;
$a08a22 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a22 = "$a08a22".".$ext"; 

open (KEYWORD08a22, ">no22/$b08a22");
print KEYWORD08a22 "$head1$c08a22$head2 $ainhalt08a22 <h2>$c08a22</h2> $binhalt08a22 $c08a22 $cinhalt08a22 $dinhalt08a22 $end";
close (KEYWORD08a22);


open (KEYWORD00a22, ">no22/$HAUPT1");

print KEYWORD00a22 "$head1$kkka22$head2";
print KEYWORD00a22 "$ainhalt09a22 $kkka22 $binhalt09a22 $cinhalt09a22 $kkka22 $dinhalt09a22 $einhalt09a22 ";

print KEYWORD00a22 "<a href=$b01a22>$c01a22</a> ";
print KEYWORD00a22 "<a href=$b02a22>$c02a22</a> ";
print KEYWORD00a22 "<a href=$b03a22>$c03a22</a> ";
print KEYWORD00a22 "<a href=$b04a22>$c04a22</a> ";
print KEYWORD00a22 "<a href=$b05a22>$c05a22</a> ";
print KEYWORD00a22 "<a href=$b06a22>$c06a22</a> ";
print KEYWORD00a22 "<a href=$b07a22>$c07a22</a> ";
print KEYWORD00a22 "<a href=$b08a22>$c08a22</a> ";

print KEYWORD00a22 "$end";
close (KEYWORD00a22);


chop $a01a23;
$c01a23 = $a01a23;
$a01a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a23 = "$a01a23".".$ext"; 

open (KEYWORD01a23, ">no23/$b01a23");
print KEYWORD01a23 "$head1$c01a23$head2 $ainhalt01a23 <h2>$c01a23</h2> $binhalt01a23 $c01a23 $cinhalt01a23 $dinhalt01a23 $c01a23 $einhalt01a23 $end";
close (KEYWORD01a23);


chop $a02a23;
$c02a23 = $a02a23;
$a02a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a23 = "$a02a23".".$ext"; 

open (KEYWORD02a23, ">no23/$b02a23");
print KEYWORD02a23 "$head1$c02a23$head2 $ainhalt02a23 <h1>$c02a23</h1> $binhalt02a23 $c02a23 $cinhalt02a23 $dinhalt02a23 $einhalt02a23 $end";
close (KEYWORD02a23);


chop $a03a23;
$c03a23 = $a03a23;
$a03a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a23 = "$a03a23".".$ext"; 

open (KEYWORD03a23, ">no23/$b03a23");
print KEYWORD03a23 "$head1$c03a23$head2 $ainhalt03a23 <h3>$c03a23</h3> $binhalt03a23 $c03a23 $cinhalt03a23 $end";
close (KEYWORD03a23);


chop $a04a23;
$c04a23 = $a04a23;
$a04a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a23 = "$a04a23".".$ext"; 

open (KEYWORD04a23, ">no23/$b04a23");
print KEYWORD04a23 "$head1$c04a23$head2<h2>$c04a23</h2> $ainhalt04a23 $c04a23 $binhalt04a23 $cinhalt04a23 $dinhalt04a23 $c04a23 $einhalt04a23 $end";
close (KEYWORD04a23);


chop $a05a23;
$c05a23 = $a05a23;
$a05a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a23 = "$a05a23".".$ext"; 

open (KEYWORD05a23, ">no23/$b05a23");
print KEYWORD05a23 "$head1$c05a23$head2 $ainhalt05a23 <strong>$c05a23</strong> $binhalt05a23 $c05a23 $cinhalt05a23 $dinhalt05a23 $c05a23 $einhalt05a23 $end";
close (KEYWORD05a23);


chop $a06a23;
$c06a23 = $a06a23;
$a06a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a23 = "$a06a23".".$ext"; 

open (KEYWORD06a23, ">no23/$b06a23");
print KEYWORD06a23 "$head1$c06a23$head2 $ainhalt06a23 <b>$c06a23</b> $binhalt06a23 $c06a23 $cinhalt06a23 $dinhalt06a23 $c06a23 $einhalt06a23 $end";
close (KEYWORD06a23);


chop $a07a23;
$c07a23 = $a07a23;
$a07a23 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a23 = "$a07a23".".$ext"; 

open (KEYWORD07a23, ">no23/$b07a23");
print KEYWORD07a23 "$head1$c07a23$head2 $ainhalt07a23 <h2>$c07a23</h2> $binhalt07a23 $c07a23 $cinhalt07a23 $dinhalt07a23 $c07a23 $einhalt07a23 $end";
close (KEYWORD07a23);


open (KEYWORD00a23, ">no23/$HAUPT1");

print KEYWORD00a23 "$head1$kkka23$head2";
print KEYWORD00a23 "$ainhalt09a23 $kkka23 $binhalt09a23 $cinhalt09a23 $dinhalt09a23 $kkka23 $einhalt09a23 ";

print KEYWORD00a23 "<a href=$b01a23>$c01a23</a> ";
print KEYWORD00a23 "<a href=$b02a23>$c02a23</a> ";
print KEYWORD00a23 "<a href=$b03a23>$c03a23</a> ";
print KEYWORD00a23 "<a href=$b04a23>$c04a23</a> ";
print KEYWORD00a23 "<a href=$b05a23>$c05a23</a> ";
print KEYWORD00a23 "<a href=$b06a23>$c06a23</a> ";
print KEYWORD00a23 "<a href=$b07a23>$c07a23</a> ";


print KEYWORD00a23 "$end";
close (KEYWORD00a23);


chop $a01a24;
$c01a24 = $a01a24;
$a01a24 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a24 = "$a01a24".".$ext"; 

open (KEYWORD01a24, ">no24/$b01a24");
print KEYWORD01a24 "$head1$c01a24$head2 $ainhalt01a24 <h2>$c01a24</h2> $binhalt01a24 $c01a24 $cinhalt01a24 $dinhalt01a24 $einhalt01a24 $end";
close (KEYWORD01a24);


chop $a02a24;
$c02a24 = $a02a24;
$a02a24 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a24 = "$a02a24".".$ext"; 

open (KEYWORD02a24, ">no24/$b02a24");
print KEYWORD02a24 "$head1$c02a24$head2<h1>$c02a24</h1> $ainhalt02a24 $c02a24 $binhalt02a24 $cinhalt02a24 $dinhalt02a24 $c02a24 $einhalt02a24 $end";
close (KEYWORD02a24);


chop $a03a24;
$c03a24 = $a03a24;
$a03a24 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a24 = "$a03a24".".$ext"; 

open (KEYWORD03a24, ">no24/$b03a24");
print KEYWORD03a24 "$head1$c03a24$head2<font>$c03a24</font> $ainhalt03a24 $c03a24 $binhalt03a24 $cinhalt03a24 $dinhalt03a24 $end";
close (KEYWORD03a24);


chop $a04a24;
$c04a24 = $a04a24;
$a04a24 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a24 = "$a04a24".".$ext"; 

open (KEYWORD04a24, ">no24/$b04a24");
print KEYWORD04a24 "$head1$c04a24$head2 $ainhalt04a24 <h3>$c04a24</h3> $binhalt04a24 $c04a24 $cinhalt04a24 $dinhalt04a24 $einhalt04a24 $end";
close (KEYWORD04a24);


chop $a05a24;
$c05a24 = $a05a24;
$a05a24 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a24 = "$a05a24".".$ext"; 

open (KEYWORD05a24, ">no24/$b05a24");
print KEYWORD05a24 "$head1$c05a24$head2<b>$c05a24</b> $ainhalt05a24 $c05a24 $binhalt05a24 $cinhalt05a24 $dinhalt05a24 $c05a24 $einhalt05a24 $end";
close (KEYWORD05a24);


chop $a06a24;
$c06a24 = $a06a24;
$a06a24 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a24 = "$a06a24".".$ext"; 

open (KEYWORD06a24, ">no24/$b06a24");
print KEYWORD06a24 "$head1$c06a24$head2 $ainhalt06a24 <h2>$c06a24</h2> $binhalt06a24 $c06a24 $cinhalt06a24 $c06a24 $dinhalt06a24 $einhalt06a24 $end";
close (KEYWORD06a24);


open (KEYWORD00a24, ">no24/$HAUPT1");

print KEYWORD00a24 "$head1$kkka24$head2";
print KEYWORD00a24 "$ainhalt09a24 $kkka24 $binhalt09a24 $kkka24 $cinhalt09a24 $dinhalt09a24 $kkka24 $einhalt09a24 ";

print KEYWORD00a24 "<a href=$b01a24>$c01a24</a> ";
print KEYWORD00a24 "<a href=$b02a24>$c02a24</a> ";
print KEYWORD00a24 "<a href=$b03a24>$c03a24</a> ";
print KEYWORD00a24 "<a href=$b04a24>$c04a24</a> ";
print KEYWORD00a24 "<a href=$b05a24>$c05a24</a> ";
print KEYWORD00a24 "<a href=$b06a24>$c06a24</a> ";


print KEYWORD00a24 "$end";
close (KEYWORD00a24);


chop $a01a25;
$c01a25 = $a01a25;
$a01a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a25 = "$a01a25".".$ext"; 

open (KEYWORD01a25, ">no25/$b01a25");
print KEYWORD01a25 "$head1$c01a25$head2 $ainhalt01a25 <h1>$c01a25</h1> $binhalt01a25 $c01a25 $cinhalt01a25 $dinhalt01a25 $c01a25 $einhalt01a25 $end";
close (KEYWORD01a25);


chop $a02a25;
$c02a25 = $a02a25;
$a02a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a25 = "$a02a25".".$ext"; 

open (KEYWORD02a25, ">no25/$b02a25");
print KEYWORD02a25 "$head1$c02a25$head2<h2>$c02a25</h2> $ainhalt02a25 $c02a25 $binhalt02a25 $cinhalt02a25 $dinhalt02a25 $c02a25 $einhalt02a25 $end";
close (KEYWORD02a25);


chop $a03a25;
$c03a25 = $a03a25;
$a03a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a25 = "$a03a25".".$ext"; 

open (KEYWORD03a25, ">no25/$b03a25");
print KEYWORD03a25 "$head1$c03a25$head2<strong>$c03a25</strong> $ainhalt03a25 $binhalt03a25 $c03a25 $cinhalt03a25 $dinhalt03a25 $einhalt03a25 $c03a25 $end";
close (KEYWORD03a25);


chop $a04a25;
$c04a25 = $a04a25;
$a04a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a25 = "$a04a25".".$ext"; 

open (KEYWORD04a25, ">no25/$b04a25");
print KEYWORD04a25 "$head1$c04a25$head2<u>$c04a25</u> $ainhalt04a25 $c04a25 $binhalt04a25 $cinhalt04a25 $end";
close (KEYWORD04a25);


chop $a05a25;
$c05a25 = $a05a25;
$a05a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a25 = "$a05a25".".$ext"; 

open (KEYWORD05a25, ">no25/$b05a25");
print KEYWORD05a25 "$head1$c05a25$head2<h2>$c05a25</h2> $ainhalt05a25 $c05a25 $binhalt05a25 $cinhalt05a25 $c05a25 $dinhalt05a25 $einhalt05a25 $end";
close (KEYWORD05a25);


chop $a06a25;
$c06a25 = $a06a25;
$a06a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a25 = "$a06a25".".$ext"; 

open (KEYWORD06a25, ">no25/$b06a25");
print KEYWORD06a25 "$head1$c06a25$head2 $ainhalt06a25 <h3>$c06a25</h3> $binhalt06a25 $c06a25 $cinhalt06a25 $dinhalt06a25 $c06a25 $einhalt06a25 $end";
close (KEYWORD06a25);


chop $a07a25;
$c07a25 = $a07a25;
$a07a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a25 = "$a07a25".".$ext"; 

open (KEYWORD07a25, ">no25/$b07a25");
print KEYWORD07a25 "$head1$c07a25$head2<h2>$c07a25</h2> $ainhalt07a25 $binhalt07a25 $c07a25 $cinhalt07a25 $dinhalt07a25 $c07a25 $einhalt07a25 $end";
close (KEYWORD07a25);


chop $a08a25;
$c08a25 = $a08a25;
$a08a25 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a25 = "$a08a25".".$ext"; 

open (KEYWORD08a25, ">no25/$b08a25");
print KEYWORD08a25 "$head1$c08a25$head2<h1>$c08a25</h1> $ainhalt08a25 $c08a25 $binhalt08a25 $cinhalt08a25 $c08a25 $dinhalt08a25 $einhalt08a25 $end";
close (KEYWORD08a25);


open (KEYWORD00a25, ">no25/$HAUPT1");

print KEYWORD00a25 "$head1$kkka25$head2";
print KEYWORD00a25 "$ainhalt09a25 $kkka25 $binhalt09a25 $cinhalt09a25 $kkka25 $dinhalt09a25 $einhalt09a25 ";

print KEYWORD00a25 "<a href=$b01a25>$c01a25</a> ";
print KEYWORD00a25 "<a href=$b02a25>$c02a25</a> ";
print KEYWORD00a25 "<a href=$b03a25>$c03a25</a> ";
print KEYWORD00a25 "<a href=$b04a25>$c04a25</a> ";
print KEYWORD00a25 "<a href=$b05a25>$c05a25</a> ";
print KEYWORD00a25 "<a href=$b06a25>$c06a25</a> ";
print KEYWORD00a25 "<a href=$b07a25>$c07a25</a> ";
print KEYWORD00a25 "<a href=$b08a25>$c08a25</a> ";


print KEYWORD00a25 "$end";
close (KEYWORD00a25);


chop $a01a26;
$c01a26 = $a01a26;
$a01a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a26 = "$a01a26".".$ext"; 

open (KEYWORD01a26, ">no26/$b01a26");
print KEYWORD01a26 "$head1$c01a26$head2<h2>$c01a26</h2> $ainhalt01a26 $c01a26 $binhalt01a26 $cinhalt01a26 $c01a26 $dinhalt01a26 $c01a26 $einhalt01a26 $end";
close (KEYWORD01a26);


chop $a02a26;
$c02a26 = $a02a26;
$a02a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a26 = "$a02a26".".$ext"; 

open (KEYWORD02a26, ">no26/$b02a26");
print KEYWORD02a26 "$head1$c02a26$head2<font>$c02a26</font> $ainhalt02a26 $c02a26 $binhalt02a26 $cinhalt02a26 $c02a26 $dinhalt02a26 $einhalt02a26 $end";
close (KEYWORD02a26);


chop $a03a26;
$c03a26 = $a03a26;
$a03a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a26 = "$a03a26".".$ext"; 

open (KEYWORD03a26, ">no26/$b03a26");
print KEYWORD03a26 "$head1$c03a26$head2 $ainhalt03a26 <h1>$c03a26</h1> $binhalt03a26 $cinhalt03a26 $c03a26 $dinhalt03a26 $end";
close (KEYWORD03a26);


chop $a04a26;
$c04a26 = $a04a26;
$a04a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a26 = "$a04a26".".$ext"; 

open (KEYWORD04a26, ">no26/$b04a26");
print KEYWORD04a26 "$head1$c04a26$head2<h2>$c04a26</h2> $ainhalt04a26 $binhalt04a26 $c04a26 $cinhalt04a26 $dinhalt04a26 $c04a26 $einhalt04a26 $end";
close (KEYWORD04a26);


chop $a05a26;
$c05a26 = $a05a26;
$a05a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a26 = "$a05a26".".$ext"; 

open (KEYWORD05a26, ">no26/$b05a26");
print KEYWORD05a26 "$head1$c05a26$head2 $ainhalt05a26 <h3>$c05a26</h3> $binhalt05a26 $c05a26 $cinhalt05a26 $dinhalt05a26 $einhalt05a26 $end";
close (KEYWORD05a26);


chop $a06a26;
$c06a26 = $a06a26;
$a06a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a26 = "$a06a26".".$ext"; 

open (KEYWORD06a26, ">no26/$b06a26");
print KEYWORD06a26 "$head1$c06a26$head2<h1>$c06a26</h1> $ainhalt06a26 $c06a26 $binhalt06a26 $cinhalt06a26 $dinhalt06a26 $c06a26 $einhalt06a26 $end";
close (KEYWORD06a26);


chop $a07a26;
$c07a26 = $a07a26;
$a07a26 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a26 = "$a07a26".".$ext"; 

open (KEYWORD07a26, ">no26/$b07a26");
print KEYWORD07a26 "$head1$c07a26$head2<h2>$c07a26</h2> $ainhalt07a26 $binhalt07a26 $c07a26 $cinhalt07a26 $dinhalt07a26 $einhalt07a26 $end";
close (KEYWORD07a26);


open (KEYWORD00a26, ">no26/$HAUPT1");

print KEYWORD00a26 "$head1$kkka26$head2";
print KEYWORD00a26 "$ainhalt09a26 $kkka26 $binhalt09a26 $cinhalt09a26 $kkka26 $dinhalt09a26 $kkka26 $einhalt09a26 ";

print KEYWORD00a26 "<a href=$b01a26>$c01a26</a> ";
print KEYWORD00a26 "<a href=$b02a26>$c02a26</a> ";
print KEYWORD00a26 "<a href=$b03a26>$c03a26</a> ";
print KEYWORD00a26 "<a href=$b04a26>$c04a26</a> ";
print KEYWORD00a26 "<a href=$b05a26>$c05a26</a> ";
print KEYWORD00a26 "<a href=$b06a26>$c06a26</a> ";
print KEYWORD00a26 "<a href=$b07a26>$c07a26</a> ";


print KEYWORD00a26 "$end";
close (KEYWORD00a26);


chop $a01a27;
$c01a27 = $a01a27;
$a01a27 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a27 = "$a01a27".".$ext"; 

open (KEYWORD01a27, ">no27/$b01a27");
print KEYWORD01a27 "$head1$c01a27$head2 $ainhalt01a27 <h2>$c01a27</h2> $binhalt01a27 $c01a27 $cinhalt01a27 $dinhalt01a27 $c01a27 $einhalt01a27 $end";
close (KEYWORD01a27);


chop $a02a27;
$c02a27 = $a02a27;
$a02a27 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a27 = "$a02a27".".$ext"; 

open (KEYWORD02a27, ">no27/$b02a27");
print KEYWORD02a27 "$head1$c02a27$head2<h3>$c02a27</h3> $ainhalt02a27 $c02a27 $binhalt02a27 $cinhalt02a27 $c02a27 $dinhalt02a27 $einhalt02a27 $end";
close (KEYWORD02a27);


chop $a03a27;
$c03a27 = $a03a27;
$a03a27 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a27 = "$a03a27".".$ext"; 

open (KEYWORD03a27, ">no27/$b03a27");
print KEYWORD03a27 "$head1$c03a27$head2 $ainhalt03a27 <h1>$c03a27</h1> $binhalt03a27 $cinhalt03a27 $c03a27 $dinhalt03a27 $einhalt03a27 $end";
close (KEYWORD03a27);


chop $a04a27;
$c04a27 = $a04a27;
$a04a27 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a27 = "$a04a27".".$ext"; 

open (KEYWORD04a27, ">no27/$b04a27");
print KEYWORD04a27 "$head1$c04a27$head2<h2>$c04a27</h2> $ainhalt04a27 $c04a27 $binhalt04a27 $cinhalt04a27 $c04a27 $dinhalt04a27 $einhalt04a27 $end";
close (KEYWORD04a27);


chop $a05a27;
$c05a27 = $a05a27;
$a05a27 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a27 = "$a05a27".".$ext"; 

open (KEYWORD05a27, ">no27/$b05a27");
print KEYWORD05a27 "$head1$c05a27$head2 $ainhalt05a27 <h2>$c05a27</h2> $binhalt05a27 $c05a27 $cinhalt05a27 $c05a27 $dinhalt05a27 $einhalt05a27 $end";
close (KEYWORD05a27);


chop $a06a27;
$c06a27 = $a06a27;
$a06a27 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a27 = "$a06a27".".$ext"; 

open (KEYWORD06a27, ">no27/$b06a27");
print KEYWORD06a27 "$head1$c06a27$head2<h2>$c06a27</h2> $ainhalt06a27 $c06a27 $binhalt06a27 $c06a27 $cinhalt06a27 $dinhalt06a27 $end";
close (KEYWORD06a27);


open (KEYWORD00a27, ">no27/$HAUPT1");

print KEYWORD00a27 "$head1$kkka27$head2";
print KEYWORD00a27 "$kkka27 $ainhalt09a27 $binhalt09a27 $kkka27 $cinhalt09a27 $dinhalt09a27 $kkka27 $einhalt09a27 ";

print KEYWORD00a27 "<a href=$b01a27>$c01a27</a> ";
print KEYWORD00a27 "<a href=$b02a27>$c02a27</a> ";
print KEYWORD00a27 "<a href=$b03a27>$c03a27</a> ";
print KEYWORD00a27 "<a href=$b04a27>$c04a27</a> ";
print KEYWORD00a27 "<a href=$b05a27>$c05a27</a> ";
print KEYWORD00a27 "<a href=$b06a27>$c06a27</a> ";


print KEYWORD00a27 "$end";
close (KEYWORD00a27);


chop $a01a28;
$c01a28 = $a01a28;
$a01a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a28 = "$a01a28".".$ext"; 

open (KEYWORD01a28, ">no28/$b01a28");
print KEYWORD01a28 "$head1$c01a28$head2<h2>$c01a28</h2> $ainhalt01a28 $c01a28 $binhalt01a28 $cinhalt01a28 $c01a28 $dinhalt01a28 $einhalt01a28 $end";
close (KEYWORD01a28);


chop $a02a28;
$c02a28 = $a02a28;
$a02a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a28 = "$a02a28".".$ext"; 

open (KEYWORD02a28, ">no28/$b02a28");
print KEYWORD02a28 "$head1$c02a28$head2<b>$c02a28</b> $ainhalt02a28 $c02a28 $binhalt02a28 $cinhalt02a28 $dinhalt02a28 $c02a28 $einhalt02a28 $end";
close (KEYWORD02a28);


chop $a03a28;
$c03a28 = $a03a28;
$a03a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a28 = "$a03a28".".$ext"; 

open (KEYWORD03a28, ">no28/$b03a28");
print KEYWORD03a28 "$head1$c03a28$head2<h2>$c03a28</h2> $ainhalt03a28 $c03a28 $binhalt03a28 $c03a28 $cinhalt03a28 $end";
close (KEYWORD03a28);


chop $a04a28;
$c04a28 = $a04a28;
$a04a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a28 = "$a04a28".".$ext"; 

open (KEYWORD04a28, ">no28/$b04a28");
print KEYWORD04a28 "$head1$c04a28$head2 $ainhalt04a28 <h2>$c04a28</h2> $binhalt04a28 $c04a28 $cinhalt04a28 $dinhalt04a28 $c04a28 $einhalt04a28 $end";
close (KEYWORD04a28);


chop $a05a28;
$c05a28 = $a05a28;
$a05a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a28 = "$a05a28".".$ext"; 

open (KEYWORD05a28, ">no28/$b05a28");
print KEYWORD05a28 "$head1$c05a28$head2<u>$c05a28</u> $ainhalt05a28 $c05a28 $binhalt05a28 $cinhalt05a28 $dinhalt05a28 $c05a28 $einhalt05a28 $end";
close (KEYWORD05a28);


chop $a06a28;
$c06a28 = $a06a28;
$a06a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a28 = "$a06a28".".$ext"; 

open (KEYWORD06a28, ">no28/$b06a28");
print KEYWORD06a28 "$head1$c06a28$head2<h2>$c06a28</h2> $ainhalt06a28 $c06a28 $binhalt06a28 $cinhalt06a28 $c06a28 $dinhalt06a28 $einhalt06a28 $end";
close (KEYWORD06a28);


chop $a07a28;
$c07a28 = $a07a28;
$a07a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a28 = "$a07a28".".$ext"; 

open (KEYWORD07a28, ">no28/$b07a28");
print KEYWORD07a28 "$head1$c07a28$head2<font>$c07a28</font> $ainhalt07a28 $binhalt07a28 $c07a28 $cinhalt07a28 $dinhalt07a28 $c07a28 $einhalt07a28 $end";
close (KEYWORD07a28);


chop $a08a28;
$c08a28 = $a08a28;
$a08a28 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a28 = "$a08a28".".$ext"; 

open (KEYWORD08a28, ">no28/$b08a28");
print KEYWORD08a28 "$head1$c08a28$head2<h2>$c08a28</h2> $ainhalt08a28 $c08a28 $binhalt08a28 $cinhalt08a28 $c08a28 $dinhalt08a28 $einhalt08a28 $end";
close (KEYWORD08a28);


open (KEYWORD00a28, ">no28/$HAUPT1");

print KEYWORD00a28 "$head1$kkka28$head2";
print KEYWORD00a28 "$ainhalt09a28 $kkka28 $binhalt09a28 $cinhalt09a28 $kkka28 $dinhalt09a28 $einhalt09a28 $kkka28 ";

print KEYWORD00a28 "<a href=$b01a28>$c01a28</a> ";
print KEYWORD00a28 "<a href=$b02a28>$c02a28</a> ";
print KEYWORD00a28 "<a href=$b03a28>$c03a28</a> ";
print KEYWORD00a28 "<a href=$b04a28>$c04a28</a> ";
print KEYWORD00a28 "<a href=$b05a28>$c05a28</a> ";
print KEYWORD00a28 "<a href=$b06a28>$c06a28</a> ";
print KEYWORD00a28 "<a href=$b07a28>$c07a28</a> ";
print KEYWORD00a28 "<a href=$b08a28>$c08a28</a> ";

print KEYWORD00a28 "$end";
close (KEYWORD00a28);


chop $a01a29;
$c01a29 = $a01a29;
$a01a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a29 = "$a01a29".".$ext"; 

open (KEYWORD01a29, ">no29/$b01a29");
print KEYWORD01a29 "$head1$c01a29$head2 $ainhalt01a29 <h3>$c01a29</h3> $binhalt01a29 $c01a29 $cinhalt01a29 $dinhalt01a29 $einhalt01a29 $c01a29 $end";
close (KEYWORD01a29);


chop $a02a29;
$c02a29 = $a02a29;
$a02a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a29 = "$a02a29".".$ext"; 

open (KEYWORD02a29, ">no29/$b02a29");
print KEYWORD02a29 "$head1$c02a29$head2<h1>$c02a29</h1> $ainhalt02a29 $c02a29 $binhalt02a29 $cinhalt02a29 $c02a29 $dinhalt02a29 $einhalt02a29 $end";
close (KEYWORD02a29);


chop $a03a29;
$c03a29 = $a03a29;
$a03a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a29 = "$a03a29".".$ext"; 

open (KEYWORD03a29, ">no29/$b03a29");
print KEYWORD03a29 "$head1$c03a29$head2<h2>$c03a29</h2> $ainhalt03a29 $c03a29 $binhalt03a29 $cinhalt03a29 $c03a29 $dinhalt03a29 $einhalt03a29 $end";
close (KEYWORD03a29);


chop $a04a29;
$c04a29 = $a04a29;
$a04a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a29 = "$a04a29".".$ext"; 

open (KEYWORD04a29, ">no29/$b04a29");
print KEYWORD04a29 "$head1$c04a29$head2 $ainhalt04a29 <h2>$c04a29</h2> $binhalt04a29 $c04a29 $cinhalt04a29 $dinhalt04a29 $end";
close (KEYWORD04a29);


chop $a05a29;
$c05a29 = $a05a29;
$a05a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a29 = "$a05a29".".$ext"; 

open (KEYWORD05a29, ">no29/$b05a29");
print KEYWORD05a29 "$head1$c05a29$head2<b>$c05a29</b> $ainhalt05a29 $c05a29 $binhalt05a29 $c05a29 $cinhalt05a29 $dinhalt05a29 $c05a29 $einhalt05a29 $end";
close (KEYWORD05a29);


chop $a06a29;
$c06a29 = $a06a29;
$a06a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a29 = "$a06a29".".$ext"; 

open (KEYWORD06a29, ">no29/$b06a29");
print KEYWORD06a29 "$head1$c06a29$head2<h2>$c06a29</h2> $ainhalt06a29 $c06a29 $binhalt06a29 $cinhalt06a29 $c06a29 $dinhalt06a29 $einhalt06a29 $end";
close (KEYWORD06a29);


chop $a07a29;
$c07a29 = $a07a29;
$a07a29 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a29 = "$a07a29".".$ext"; 

open (KEYWORD07a29, ">no29/$b07a29");
print KEYWORD07a29 "$head1$c07a29$head2<u>$c07a29</u> $ainhalt07a29 $c07a29 $binhalt07a29 $cinhalt07a29 $dinhalt07a29 $c07a29 $einhalt07a29 $end";
close (KEYWORD07a29);


open (KEYWORD00a29, ">no29/$HAUPT1");

print KEYWORD00a29 "$head1$kkka29$head2";
print KEYWORD00a29 "$ainhalt09a29 $kkka29 $binhalt09a29 $cinhalt09a29 $kkka29 $dinhalt09a29 $einhalt09a29 $kkka29 ";

print KEYWORD00a29 "<a href=$b01a29>$c01a29</a> ";
print KEYWORD00a29 "<a href=$b02a29>$c02a29</a> ";
print KEYWORD00a29 "<a href=$b03a29>$c03a29</a> ";
print KEYWORD00a29 "<a href=$b04a29>$c04a29</a> ";
print KEYWORD00a29 "<a href=$b05a29>$c05a29</a> ";
print KEYWORD00a29 "<a href=$b06a29>$c06a29</a> ";
print KEYWORD00a29 "<a href=$b07a29>$c07a29</a> ";


print KEYWORD00a29 "$end";
close (KEYWORD00a29);


chop $a01a30;
$c01a30 = $a01a30;
$a01a30 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a30 = "$a01a30".".$ext"; 

open (KEYWORD01a30, ">no30/$b01a30");
print KEYWORD01a30 "$head1$c01a30$head2 $ainhalt01a30 <h2>$c01a30</h2> $binhalt01a30 $c01a30 $cinhalt01a30 $dinhalt01a30 $c01a30 $einhalt01a30 $end";
close (KEYWORD01a30);


chop $a02a30;
$c02a30 = $a02a30;
$a02a30 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a30 = "$a02a30".".$ext"; 

open (KEYWORD02a30, ">no30/$b02a30");
print KEYWORD02a30 "$head1$c02a30$head2<h2>$c02a30</h2> $ainhalt02a30 $binhalt02a30 $c02a30 $cinhalt02a30 $dinhalt02a30 $einhalt02a30 $end";
close (KEYWORD02a30);


chop $a03a30;
$c03a30 = $a03a30;
$a03a30 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a30 = "$a03a30".".$ext"; 

open (KEYWORD03a30, ">no30/$b03a30");
print KEYWORD03a30 "$head1$c03a30$head2<h3>$c03a30</h3> $ainhalt03a30 $c03a30 $binhalt03a30 $cinhalt03a30 $c03a30 $dinhalt03a30 $c03a30 $einhalt03a30 $end";
close (KEYWORD03a30);


chop $a04a30;
$c04a30 = $a04a30;
$a04a30 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a30 = "$a04a30".".$ext"; 

open (KEYWORD04a30, ">no30/$b04a30");
print KEYWORD04a30 "$head1$c04a30$head2<h1>$c04a30</h1> $ainhalt04a30 $c04a30 $binhalt04a30 $cinhalt04a30 $c04a30 $dinhalt04a30 $einhalt04a30 $end";
close (KEYWORD04a30);


chop $a05a30;
$c05a30 = $a05a30;
$a05a30 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a30 = "$a05a30".".$ext"; 

open (KEYWORD05a30, ">no30/$b05a30");
print KEYWORD05a30 "$head1$c05a30$head2 $ainhalt05a30 <h2>$c05a30</h2> $binhalt05a30 $cinhalt05a30 $c05a30 $dinhalt05a30 $einhalt05a30 $end";
close (KEYWORD05a30);


chop $a06a30;
$c06a30 = $a06a30;
$a06a30 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a30 = "$a06a30".".$ext"; 

open (KEYWORD06a30, ">no30/$b06a30");
print KEYWORD06a30 "$head1$c06a30$head2<h2>$c06a30</h2> $ainhalt06a30 $c06a30 $binhalt06a30 $cinhalt06a30 $end";
close (KEYWORD06a30);


open (KEYWORD00a30, ">no30/$HAUPT1");

print KEYWORD00a30 "$head1$kkka30$head2";
print KEYWORD00a30 " $ainhalt09a30 $kkka30 $binhalt09a30 $kkka30 $cinhalt09a30 $dinhalt09a30 $kkka30 $einhalt09a30 ";

print KEYWORD00a30 "<a href=$b01a30>$c01a30</a> ";
print KEYWORD00a30 "<a href=$b02a30>$c02a30</a> ";
print KEYWORD00a30 "<a href=$b03a30>$c03a30</a> ";
print KEYWORD00a30 "<a href=$b04a30>$c04a30</a> ";
print KEYWORD00a30 "<a href=$b05a30>$c05a30</a> ";
print KEYWORD00a30 "<a href=$b06a30>$c06a30</a> ";


print KEYWORD00a30 "$end";
close (KEYWORD00a30);


chop $a01a31;
$c01a31 = $a01a31;
$a01a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a31 = "$a01a31".".$ext"; 

open (KEYWORD01a31, ">no31/$b01a31");
print KEYWORD01a31 "$head1$c01a31$head2 $ainhalt01a31 <h1>$c01a31</h1> $binhalt01a31 $c01a31 $cinhalt01a31 $dinhalt01a31 $einhalt01a31 $end";
close (KEYWORD01a31);


chop $a02a31;
$c02a31 = $a02a31;
$a02a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a31 = "$a02a31".".$ext"; 

open (KEYWORD02a31, ">no31/$b02a31");
print KEYWORD02a31 "$head1$c02a31$head2<h2>$c02a31</h2> $ainhalt02a31 $c02a31 $binhalt02a31 $c02a31 $cinhalt02a31 $dinhalt02a31 $einhalt02a31 $end";
close (KEYWORD02a31);


chop $a03a31;
$c03a31 = $a03a31;
$a03a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a31 = "$a03a31".".$ext"; 

open (KEYWORD03a31, ">no31/$b03a31");
print KEYWORD03a31 "$head1$c03a31$head2 $ainhalt03a31 <h2>$c03a31</h2> $binhalt03a31 $c03a31 $cinhalt03a31 $dinhalt03a31 $c03a31 $einhalt03a31 $end";
close (KEYWORD03a31);


chop $a04a31;
$c04a31 = $a04a31;
$a04a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a31 = "$a04a31".".$ext"; 

open (KEYWORD04a31, ">no31/$b04a31");
print KEYWORD04a31 "$head1$c04a31$head2<h2>$c04a31</h2> $ainhalt04a31 $c04a31 $binhalt04a31 $cinhalt04a31 $c04a31 $dinhalt04a31 $einhalt04a31 $end";
close (KEYWORD04a31);


chop $a05a31;
$c05a31 = $a05a31;
$a05a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a31 = "$a05a31".".$ext"; 

open (KEYWORD05a31, ">no31/$b05a31");
print KEYWORD05a31 "$head1$c05a31$head2<u>$c05a31</u> $ainhalt05a31 $c05a31 $binhalt05a31 $cinhalt05a31 $c05a31 $dinhalt05a31 $einhalt05a31 $end";
close (KEYWORD05a31);


chop $a06a31;
$c06a31 = $a06a31;
$a06a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a31 = "$a06a31".".$ext"; 

open (KEYWORD06a31, ">no31/$b06a31");
print KEYWORD06a31 "$head1$c06a31$head2<b>$c06a31</b> $ainhalt06a31 $binhalt06a31 $c06a31 $cinhalt06a31 $dinhalt06a31 $end";
close (KEYWORD06a31);


chop $a07a31;
$c07a31 = $a07a31;
$a07a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a31 = "$a07a31".".$ext"; 

open (KEYWORD07a31, ">no31/$b07a31");
print KEYWORD07a31 "$head1$c07a31$head2<h3>$c07a31</h3> $ainhalt07a31 $binhalt07a31 $c07a31 $cinhalt07a31 $dinhalt07a31 $einhalt07a31 $end";
close (KEYWORD07a31);


chop $a08a31;
$c08a31 = $a08a31;
$a08a31 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a31 = "$a08a31".".$ext"; 

open (KEYWORD08a31, ">no31/$b08a31");
print KEYWORD08a31 "$head1$c08a31$head2 $ainhalt08a31 <h2>$c08a31</h2> $binhalt08a31 $c08a31 $cinhalt08a31 $dinhalt08a31 $c08a31 $einhalt08a31 $end";
close (KEYWORD08a31);


open (KEYWORD00a31, ">no31/$HAUPT1");

print KEYWORD00a31 "$head1$kkka31$head2";
print KEYWORD00a31 "$ainhalt09a31 $kkka31 $binhalt09a31 $cinhalt09a31 $kkka31 $dinhalt09a31 $einhalt09a31 ";

print KEYWORD00a31 "<a href=$b01a31>$c01a31</a> ";
print KEYWORD00a31 "<a href=$b02a31>$c02a31</a> ";
print KEYWORD00a31 "<a href=$b03a31>$c03a31</a> ";
print KEYWORD00a31 "<a href=$b04a31>$c04a31</a> ";
print KEYWORD00a31 "<a href=$b05a31>$c05a31</a> ";
print KEYWORD00a31 "<a href=$b06a31>$c06a31</a> ";
print KEYWORD00a31 "<a href=$b07a31>$c07a31</a> ";
print KEYWORD00a31 "<a href=$b08a31>$c08a31</a> ";


print KEYWORD00a31 "$end";
close (KEYWORD00a31);


chop $a01a32;
$c01a32 = $a01a32;
$a01a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a32 = "$a01a32".".$ext"; 

open (KEYWORD01a32, ">no32/$b01a32");
print KEYWORD01a32 "$head1$c01a32$head2<h1>$c01a32</h1> $ainhalt01a32 $c01a32 $binhalt01a32 $c01a32 $cinhalt01a32 $c01a32 $dinhalt01a32 $c01a32 $einhalt01a32 $end";
close (KEYWORD01a32);


chop $a02a32;
$c02a32 = $a02a32;
$a02a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a32 = "$a02a32".".$ext"; 

open (KEYWORD02a32, ">no32/$b02a32");
print KEYWORD02a32 "$head1$c02a32$head2 $ainhalt02a32 <h2>$c02a32</h2> $binhalt02a32 $c02a32 $cinhalt02a32 $dinhalt02a32 $c02a32 $einhalt02a32 $end";
close (KEYWORD02a32);


chop $a03a32;
$c03a32 = $a03a32;
$a03a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a32 = "$a03a32".".$ext"; 

open (KEYWORD03a32, ">no32/$b03a32");
print KEYWORD03a32 "$head1$c03a32$head2<h2>$c03a32</h2> $ainhalt03a32 $c03a32 $binhalt03a32 $cinhalt03a32 $c03a32 $dinhalt03a32 $einhalt03a32 $end";
close (KEYWORD03a32);


chop $a04a32;
$c04a32 = $a04a32;
$a04a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a32 = "$a04a32".".$ext"; 

open (KEYWORD04a32, ">no32/$b04a32");
print KEYWORD04a32 "$head1$c04a32$head2 $ainhalt04a32 <h2>$c04a32</h2> $binhalt04a32 $c04a32 $cinhalt04a32 $dinhalt04a32 $end";
close (KEYWORD04a32);


chop $a05a32;
$c05a32 = $a05a32;
$a05a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a32 = "$a05a32".".$ext"; 

open (KEYWORD05a32, ">no32/$b05a32");
print KEYWORD05a32 "$head1$c05a32$head2<b>$c05a32</b> $ainhalt05a32 $binhalt05a32 $c05a32 $cinhalt05a32 $dinhalt05a32 $einhalt05a32 $end";
close (KEYWORD05a32);


chop $a06a32;
$c06a32 = $a06a32;
$a06a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a32 = "$a06a32".".$ext"; 

open (KEYWORD06a32, ">no32/$b06a32");
print KEYWORD06a32 "$head1$c06a32$head2<h3>$c06a32</h3> $ainhalt06a32 $c06a32 $binhalt06a32 $cinhalt06a32 $c06a32 $dinhalt06a32 $einhalt06a32 $end";
close (KEYWORD06a32);


chop $a07a32;
$c07a32 = $a07a32;
$a07a32 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a32 = "$a07a32".".$ext"; 

open (KEYWORD07a32, ">no32/$b07a32");
print KEYWORD07a32 "$head1$c07a32$head2 $ainhalt07a32 <h2>$c07a32</h2> $binhalt07a32 $c07a32 $cinhalt07a32 $c07a32 $dinhalt07a32 $einhalt07a32 $end";
close (KEYWORD07a32);


open (KEYWORD00a32, ">no32/$HAUPT1");

print KEYWORD00a32 "$head1$kkka32$head2";
print KEYWORD00a32 "$ainhalt09a32 $kkka32 $binhalt09a32 $cinhalt09a32 $dinhalt09a32 $kkka32 $einhalt09a32 ";

print KEYWORD00a32 "<a href=$b01a32>$c01a32</a> ";
print KEYWORD00a32 "<a href=$b02a32>$c02a32</a> ";
print KEYWORD00a32 "<a href=$b03a32>$c03a32</a> ";
print KEYWORD00a32 "<a href=$b04a32>$c04a32</a> ";
print KEYWORD00a32 "<a href=$b05a32>$c05a32</a> ";
print KEYWORD00a32 "<a href=$b06a32>$c06a32</a> ";
print KEYWORD00a32 "<a href=$b07a32>$c07a32</a> ";


print KEYWORD00a32 "$end";
close (KEYWORD00a32);


chop $a01a33;
$c01a33 = $a01a33;
$a01a33 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a33 = "$a01a33".".$ext"; 

open (KEYWORD01a33, ">no33/$b01a33");
print KEYWORD01a33 "$head1$c01a33$head2<h1>$c01a33</h1> $ainhalt01a33 $c01a33 $binhalt01a33 $cinhalt01a33 $c01a33 $dinhalt01a33 $c01a33 $einhalt01a33 $end";
close (KEYWORD01a33);


chop $a02a33;
$c02a33 = $a02a33;
$a02a33 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a33 = "$a02a33".".$ext"; 

open (KEYWORD02a33, ">no33/$b02a33");
print KEYWORD02a33 "$head1$c02a33$head2<u>$c02a33</u> $ainhalt02a33 $c02a33 $binhalt02a33 $cinhalt02a33 $c02a33 $dinhalt02a33 $einhalt02a33 $end";
close (KEYWORD02a33);


chop $a03a33;
$c03a33 = $a03a33;
$a03a33 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a33 = "$a03a33".".$ext"; 

open (KEYWORD03a33, ">no33/$b03a33");
print KEYWORD03a33 "$head1$c03a33$head2 $ainhalt03a33 <h2>$c03a33</h2> $binhalt03a33 $cinhalt03a33 $c03a33 $dinhalt03a33 $einhalt03a33 $end";
close (KEYWORD03a33);


chop $a04a33;
$c04a33 = $a04a33;
$a04a33 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a33 = "$a04a33".".$ext"; 

open (KEYWORD04a33, ">no33/$b04a33");
print KEYWORD04a33 "$head1$c04a33$head2<font>$c04a33</font> $ainhalt04a33 $binhalt04a33 $c04a33 $cinhalt04a33 $end";
close (KEYWORD04a33);


chop $a05a33;
$c05a33 = $a05a33;
$a05a33 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a33 = "$a05a33".".$ext"; 

open (KEYWORD05a33, ">no33/$b05a33");
print KEYWORD05a33 "$head1$c05a33$head2<h2>$c05a33</h2> $ainhalt05a33 $binhalt05a33 $c05a33 $cinhalt05a33 $dinhalt05a33 $c05a33 $einhalt05a33 $end";
close (KEYWORD05a33);


chop $a06a33;
$c06a33 = $a06a33;
$a06a33 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a33 = "$a06a33".".$ext"; 

open (KEYWORD06a33, ">no33/$b06a33");
print KEYWORD06a33 "$head1$c06a33$head2<b>$c06a33</b> $ainhalt06a33 $binhalt06a33 $c06a33 $cinhalt06a33 $dinhalt06a33 $einhalt06a33 $end";
close (KEYWORD06a33);


open (KEYWORD00a33, ">no33/$HAUPT1");

print KEYWORD00a33 "$head1$kkka33$head2";
print KEYWORD00a33 "$ainhalt09a33 $kkka33 $binhalt09a33 $kkka33 $cinhalt09a33 $dinhalt09a33 $kkka33 $einhalt09a33 ";

print KEYWORD00a33 "<a href=$b01a33>$c01a33</a> ";
print KEYWORD00a33 "<a href=$b02a33>$c02a33</a> ";
print KEYWORD00a33 "<a href=$b03a33>$c03a33</a> ";
print KEYWORD00a33 "<a href=$b04a33>$c04a33</a> ";
print KEYWORD00a33 "<a href=$b05a33>$c05a33</a> ";
print KEYWORD00a33 "<a href=$b06a33>$c06a33</a> ";

print KEYWORD00a33 "$end";
close (KEYWORD00a33);


chop $a01a34;
$c01a34 = $a01a34;
$a01a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a34 = "$a01a34".".$ext"; 

open (KEYWORD01a34, ">no34/$b01a34");
print KEYWORD01a34 "$head1$c01a34$head2 $ainhalt01a34 <h2>$c01a34</h2> $binhalt01a34 $c01a34 $cinhalt01a34 $dinhalt01a34 $c01a34 $einhalt01a34 $end";
close (KEYWORD01a34);


chop $a02a34;
$c02a34 = $a02a34;
$a02a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a34 = "$a02a34".".$ext"; 

open (KEYWORD02a34, ">no34/$b02a34");
print KEYWORD02a34 "$head1$c02a34$head2<h3>$c02a34</h3> $ainhalt02a34 $c02a34 $binhalt02a34 $cinhalt02a34 $dinhalt02a34 $c02a34 $einhalt02a34 $end";
close (KEYWORD02a34);


chop $a03a34;
$c03a34 = $a03a34;
$a03a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a34 = "$a03a34".".$ext"; 

open (KEYWORD03a34, ">no34/$b03a34");
print KEYWORD03a34 "$head1$c03a34$head2<h1>$c03a34</h1> $ainhalt03a34 $c03a34 $binhalt03a34 $cinhalt03a34 $c03a34 $dinhalt03a34 $end";
close (KEYWORD03a34);


chop $a04a34;
$c04a34 = $a04a34;
$a04a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a34 = "$a04a34".".$ext"; 

open (KEYWORD04a34, ">no34/$b04a34");
print KEYWORD04a34 "$head1$c04a34$head2<h2>$c04a34</h2> $ainhalt04a34 $c04a34 $binhalt04a34 $c04a34 $cinhalt04a34 $c04a34 $dinhalt04a34 $c04a34 $einhalt04a34 $end";
close (KEYWORD04a34);


chop $a05a34;
$c05a34 = $a05a34;
$a05a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a34 = "$a05a34".".$ext"; 

open (KEYWORD05a34, ">no34/$b05a34");
print KEYWORD05a34 "$head1$c05a34$head2 $ainhalt05a34 <h1>$c05a34</h1> $binhalt05a34 $c05a34 $cinhalt05a34 $dinhalt05a34 $einhalt05a34 $end";
close (KEYWORD05a34);


chop $a06a34;
$c06a34 = $a06a34;
$a06a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a34 = "$a06a34".".$ext"; 

open (KEYWORD06a34, ">no34/$b06a34");
print KEYWORD06a34 "$head1$c06a34$head2<h2>$c06a34</h2> $ainhalt06a34 $binhalt06a34 $c06a34 $cinhalt06a34 $dinhalt06a34 $c06a34 $einhalt06a34 $end";
close (KEYWORD06a34);


chop $a07a34;
$c07a34 = $a07a34;
$a07a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a34 = "$a07a34".".$ext"; 

open (KEYWORD07a34, ">no34/$b07a34");
print KEYWORD07a34 "$head1$c07a34$head2 $ainhalt07a34 <h2>$c07a34</h2> $binhalt07a34 $c07a34 $cinhalt07a34 $dinhalt07a34 $c07a34 $einhalt07a34 $end";
close (KEYWORD07a34);


chop $a08a34;
$c08a34 = $a08a34;
$a08a34 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b08a34 = "$a08a34".".$ext"; 

open (KEYWORD08a34, ">no34/$b08a34");
print KEYWORD08a34 "$head1$c08a34$head2<font>$c08a34</font> $ainhalt08a34 $binhalt08a34 $c08a34 $cinhalt08a34 $c08a34 $dinhalt08a34 $einhalt08a34 $end";
close (KEYWORD08a34);


open (KEYWORD00a34, ">no34/$HAUPT1");

print KEYWORD00a34 "$head1$kkka34$head2";
print KEYWORD00a34 "$ainhalt09a34 $kkka34 $binhalt09a34 $kkka34 $cinhalt09a34 $dinhalt09a34 $kkka34 $einhalt09a34 ";

print KEYWORD00a34 "<a href=$b01a34>$c01a34</a> ";
print KEYWORD00a34 "<a href=$b02a34>$c02a34</a> ";
print KEYWORD00a34 "<a href=$b03a34>$c03a34</a> ";
print KEYWORD00a34 "<a href=$b04a34>$c04a34</a> ";
print KEYWORD00a34 "<a href=$b05a34>$c05a34</a> ";
print KEYWORD00a34 "<a href=$b06a34>$c06a34</a> ";
print KEYWORD00a34 "<a href=$b07a34>$c07a34</a> ";
print KEYWORD00a34 "<a href=$b08a34>$c08a34</a> ";

print KEYWORD00a34 "$end";
close (KEYWORD00a34);


chop $a01a35;
$c01a35 = $a01a35;
$a01a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a35 = "$a01a35".".$ext"; 

open (KEYWORD01a35, ">no35/$b01a35");
print KEYWORD01a35 "$head1$c01a35$head2 $ainhalt01a35 <h2>$c01a35</h2> $binhalt01a35 $c01a35 $cinhalt01a35 $dinhalt01a35 $c01a35 $einhalt01a35 $end";
close (KEYWORD01a35);


chop $a02a35;
$c02a35 = $a02a35;
$a02a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a35 = "$a02a35".".$ext"; 

open (KEYWORD02a35, ">no35/$b02a35");
print KEYWORD02a35 "$head1$c02a35$head2<h2>$c02a35</h2> $ainhalt02a35 $c02a35 $binhalt02a35 $c02a35 $cinhalt02a35 $dinhalt02a35 $end";
close (KEYWORD02a35);


chop $a03a35;
$c03a35 = $a03a35;
$a03a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a35 = "$a03a35".".$ext"; 

open (KEYWORD03a35, ">no35/$b03a35");
print KEYWORD03a35 "$head1$c03a35$head2 $ainhalt03a35 <h2>$c03a35</h2> $binhalt03a35 $cinhalt03a35 $c03a35 $dinhalt03a35 $einhalt03a35 $end";
close (KEYWORD03a35);


chop $a04a35;
$c04a35 = $a04a35;
$a04a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a35 = "$a04a35".".$ext"; 

open (KEYWORD04a35, ">no35/$b04a35");
print KEYWORD04a35 "$head1$c04a35$head2 $ainhalt04a35 <h2>$c04a35</h2> $binhalt04a35 $c04a35 $cinhalt04a35 $c04a35 $dinhalt04a35 $einhalt04a35 $end";
close (KEYWORD04a35);


chop $a05a35;
$c05a35 = $a05a35;
$a05a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a35 = "$a05a35".".$ext"; 

open (KEYWORD05a35, ">no35/$b05a35");
print KEYWORD05a35 "$head1$c05a35$head2<h2>$c05a35</h2> $ainhalt05a35 $c05a35 $binhalt05a35 $cinhalt05a35 $c05a35 $dinhalt05a35 $einhalt05a35 $end";
close (KEYWORD05a35);


chop $a06a35;
$c06a35 = $a06a35;
$a06a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a35 = "$a06a35".".$ext"; 

open (KEYWORD06a35, ">no35/$b06a35");
print KEYWORD06a35 "$head1$c06a35$head2<h3>$c06a35</h3> $ainhalt06a35 $c06a35 $binhalt06a35 $cinhalt06a35 $dinhalt06a35 $c06a35 $einhalt06a35 $end";
close (KEYWORD06a35);


chop $a07a35;
$c07a35 = $a07a35;
$a07a35 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b07a35 = "$a07a35".".$ext"; 

open (KEYWORD07a35, ">no35/$b07a35");
print KEYWORD07a35 "$head1$c07a35$head2<h1>$c07a35</h1> $ainhalt07a35 $binhalt07a35 $c07a35 $cinhalt07a35 $dinhalt07a35 $end";
close (KEYWORD07a35);


open (KEYWORD00a35, ">no35/$HAUPT1");

print KEYWORD00a35 "$head1$kkka35$head2";
print KEYWORD00a35 "$kkka35 $ainhalt09a35 $binhalt09a35 $kkka35 $cinhalt09a35 $dinhalt09a35 $kkka35 $einhalt09a35 ";

print KEYWORD00a35 "<a href=$b01a35>$c01a35</a> ";
print KEYWORD00a35 "<a href=$b02a35>$c02a35</a> ";
print KEYWORD00a35 "<a href=$b03a35>$c03a35</a> ";
print KEYWORD00a35 "<a href=$b04a35>$c04a35</a> ";
print KEYWORD00a35 "<a href=$b05a35>$c05a35</a> ";
print KEYWORD00a35 "<a href=$b06a35>$c06a35</a> ";
print KEYWORD00a35 "<a href=$b07a35>$c07a35</a> ";


print KEYWORD00a35 "$end";
close (KEYWORD00a35);


chop $a01a36;
$c01a36 = $a01a36;
$a01a36 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b01a36 = "$a01a36".".$ext"; 

open (KEYWORD01a36, ">no36/$b01a36");
print KEYWORD01a36 "$head1$c01a36$head2<h2>$c01a36</h2> $ainhalt01a36 $c01a36 $binhalt01a36 $cinhalt01a36 $c01a36 $dinhalt01a36 $einhalt01a36 $end";
close (KEYWORD01a36);


chop $a02a36;
$c02a36 = $a02a36;
$a02a36 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b02a36 = "$a02a36".".$ext"; 

open (KEYWORD02a36, ">no36/$b02a36");
print KEYWORD02a36 "$head1$c02a36$head2 $ainhalt02a36 <h2>$c02a36</h2> $binhalt02a36 $c02a36 $cinhalt02a36 $dinhalt02a36 $c02a36 $einhalt02a36 $end";
close (KEYWORD02a36);


chop $a03a36;
$c03a36 = $a03a36;
$a03a36 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b03a36 = "$a03a36".".$ext"; 

open (KEYWORD03a36, ">no36/$b03a36");
print KEYWORD03a36 "$head1$c03a36$head2<h2>$c03a36</h2> $ainhalt03a36 $binhalt03a36 $c03a36 $cinhalt03a36 $dinhalt03a36 $c03a36 $einhalt03a36 $end";
close (KEYWORD03a36);


chop $a04a36;
$c04a36 = $a04a36;
$a04a36 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b04a36 = "$a04a36".".$ext"; 

open (KEYWORD04a36, ">no36/$b04a36");
print KEYWORD04a36 "$head1$c04a36$head2 $ainhalt04a36 <h2>$c04a36</h2> $binhalt04a36 $cinhalt04a36 $c04a36 $dinhalt04a36 $einhalt04a36 $end";
close (KEYWORD04a36);


chop $a05a36;
$c05a36 = $a05a36;
$a05a36 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b05a36 = "$a05a36".".$ext"; 

open (KEYWORD05a36, ">no36/$b05a36");
print KEYWORD05a36 "$head1$c05a36$head2<h2>$c05a36</h2> $ainhalt05a36 $binhalt05a36 $c05a36 $cinhalt05a36 $end";
close (KEYWORD05a36);


chop $a06a36;
$c06a36 = $a06a36;
$a06a36 =~ s/`| |�|�|�|�|'/-/g;
$ext = "html";
$b06a36 = "$a06a36".".$ext"; 

open (KEYWORD06a36, ">no36/$b06a36");
print KEYWORD06a36 "$head1$c06a36$head2 $ainhalt06a36 <h2>$c06a36</h2> $binhalt06a36 $c06a36 $cinhalt06a36 $dinhalt06a36 $c06a36 $einhalt06a36 $end";
close (KEYWORD06a36);


open (KEYWORD00a36, ">no36/$HAUPT1");

print KEYWORD00a36 "$head1$kkka36$head2";
print KEYWORD00a36 "$ainhalt09a36 $kkka36 $binhalt09a36 $cinhalt09a36 $kkka36 $dinhalt09a36 $kkka36 $einhalt09a36 ";

print KEYWORD00a36 "<a href=$b01a36>$c01a36</a> ";
print KEYWORD00a36 "<a href=$b02a36>$c02a36</a> ";
print KEYWORD00a36 "<a href=$b03a36>$c03a36</a> ";
print KEYWORD00a36 "<a href=$b04a36>$c04a36</a> ";
print KEYWORD00a36 "<a href=$b05a36>$c05a36</a> ";
print KEYWORD00a36 "<a href=$b06a36>$c06a36</a> ";


print KEYWORD00a36 "$end";
close (KEYWORD00a36);