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


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


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

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

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


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

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

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

$head2 = $DESa1;


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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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

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


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

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


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

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


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

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


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

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


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

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

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


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


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

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


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