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 = ""; $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);