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

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

$ext = "/index".".html";



$a1 = @fileinput1[0];
chop $a1;
$c1 = $a1;
$a1 =~ s/`| /-/g;
$b1 = "$a1"."$ext";

$a2 = @fileinput1[1];
chop $a2;
$c2 = $a2;
$a2 =~ s/`| /-/g;
$b2 = "$a2"."$ext"; 

$a3 = @fileinput1[2];
chop $a3;
$c3 = $a3;
$a3 =~ s/`| /-/g;
$b3 = "$a3"."$ext";

$a4 = @fileinput1[3];
chop $a4;
$c4 = $a4;
$a4 =~ s/`| /-/g;
$b4 = "$a4"."$ext";

$a5 = @fileinput1[4];
chop $a5;
$c5 = $a5;
$a5 =~ s/`| /-/g;
$b5 = "$a5"."$ext";

$a6 = @fileinput1[5];
chop $a6;
$c6 = $a6;
$a6 =~ s/`| /-/g;
$b6 = "$a6"."$ext";

$a7 = @fileinput1[6];
chop $a7;
$c7 = $a7;
$a7 =~ s/`| /-/g;
$b7 = "$a7"."$ext";


$a8 = @fileinput1[7];
chop $a8;
$c8 = $a8;
$a8 =~ s/`| /-/g;
$b8 = "$a8"."$ext";

$a9 = @fileinput1[8];
chop $a9;
$c9 = $a9;
$a9 =~ s/`| /-/g;
$b9 = "$a9"."$ext";

$a10 = @fileinput1[9];
chop $a10;
$c10 = $a10;
$a10 =~ s/`| /-/g;
$b10 = "$a10"."$ext";

$a11 = @fileinput1[10];
chop $a11;
$c11 = $a11;
$a11 =~ s/`| /-/g;
$b11 = "$a11"."$ext";

$a12 = @fileinput1[11];
chop $a12;
$c12 = $a12;
$a12 =~ s/`| /-/g;
$b12 = "$a12"."$ext"; 

$a13 = @fileinput1[12];
chop $a13;
$c13 = $a13;
$a13 =~ s/`| /-/g;
$b13 = "$a13"."$ext";

$a14 = @fileinput1[13];
chop $a14;
$c14 = $a14;
$a14 =~ s/`| /-/g;
$b14 = "$a14"."$ext";

$a15 = @fileinput1[14];
chop $a15;
$c15 = $a15;
$a15 =~ s/`| /-/g;
$b15 = "$a15"."$ext";

$a16 = @fileinput1[15];
chop $a16;
$c16 = $a16;
$a16 =~ s/`| /-/g;
$b16 = "$a16"."$ext";

$a17 = @fileinput1[16];
chop $a17;
$c17 = $a17;
$a17 =~ s/`| /-/g;
$b17 = "$a17"."$ext";


$a18 = @fileinput1[17];
chop $a18;
$c18 = $a18;
$a18 =~ s/`| /-/g;
$b18 = "$a18"."$ext";

$a19 = @fileinput1[18];
chop $a19;
$c19 = $a19;
$a19 =~ s/`| /-/g;
$b19 = "$a19"."$ext";

$a20 = @fileinput1[19];
chop $a20;
$c20 = $a20;
$a20 =~ s/`| /-/g;
$b20 = "$a20"."$ext"; 

$a21 = @fileinput1[20];
chop $a21;
$c21 = $a21;
$a21 =~ s/`| /-/g;
$b21 = "$a21"."$ext";

$a22 = @fileinput1[21];
chop $a22;
$c22 = $a22;
$a22 =~ s/`| /-/g;
$b22 = "$a22"."$ext"; 

$a23 = @fileinput1[22];
chop $a23;
$c23 = $a23;
$a23 =~ s/`| /-/g;
$b23 = "$a23"."$ext";

$a24 = @fileinput1[23];
chop $a24;
$c24 = $a24;
$a24 =~ s/`| /-/g;
$b24 = "$a24"."$ext";

$a25 = @fileinput1[24];
chop $a25;
$c25 = $a25;
$a25 =~ s/`| /-/g;
$b25 = "$a25"."$ext";

$a26 = @fileinput1[25];
chop $a26;
$c26 = $a26;
$a26 =~ s/`| /-/g;
$b26 = "$a26"."$ext";

$a27 = @fileinput1[26];
chop $a27;
$c27 = $a27;
$a27 =~ s/`| /-/g;
$b27 = "$a27"."$ext";


$a28 = @fileinput1[27];
chop $a28;
$c28 = $a28;
$a28 =~ s/`| /-/g;
$b28 = "$a28"."$ext";

$a29 = @fileinput1[28];
chop $a29;
$c29 = $a29;
$a29 =~ s/`| /-/g;
$b29 = "$a29"."$ext";

$a30 = @fileinput1[29];
chop $a30;
$c30 = $a30;
$a30 =~ s/`| /-/g;
$b30 = "$a30"."$ext";

$a31 = @fileinput1[30];
chop $a31;
$c31 = $a31;
$a31 =~ s/`| /-/g;
$b31 = "$a31"."$ext";

$a32 = @fileinput1[31];
chop $a32;
$c32 = $a32;
$a32 =~ s/`| /-/g;
$b32 = "$a32"."$ext"; 

$a33 = @fileinput1[32];
chop $a33;
$c33 = $a33;
$a33 =~ s/`| /-/g;
$b33 = "$a33"."$ext";

$a34 = @fileinput1[33];
chop $a34;
$c34 = $a34;
$a34 =~ s/`| /-/g;
$b34 = "$a34"."$ext";

$a35 = @fileinput1[34];
chop $a35;
$c35 = $a35;
$a35 =~ s/`| /-/g;
$b35 = "$a35"."$ext";

$a36 = @fileinput1[35];
chop $a36;
$c36 = $a36;
$a36 =~ s/`| /-/g;
$b36 = "$a36"."$ext";




open (KEYWORD, ">a1.txt");

print KEYWORD "<a href=$b1>$c1</a><br>\n";
print KEYWORD "<a href=$b2>$c2</a><br>\n";
print KEYWORD "<a href=$b3>$c3</a><br>\n";
print KEYWORD "<a href=$b4>$c4</a><br>\n";
print KEYWORD "<a href=$b5>$c5</a><br>\n";
print KEYWORD "<a href=$b6>$c6</a><br>\n";
print KEYWORD "<a href=$b7>$c7</a><br>\n";
print KEYWORD "<a href=$b8>$c8</a><br>\n";
print KEYWORD "<a href=$b9>$c9</a><br>\n";
print KEYWORD "<a href=$b10>$c10</a><br>\n";
print KEYWORD "<a href=$b11>$c11</a><br>\n";
print KEYWORD "<a href=$b12>$c12</a><br>\n";
print KEYWORD "<a href=$b13>$c13</a><br>\n";
print KEYWORD "<a href=$b14>$c14</a><br>\n";
print KEYWORD "<a href=$b15>$c15</a><br>\n";
print KEYWORD "<a href=$b16>$c16</a><br>\n";
print KEYWORD "<a href=$b17>$c17</a><br>\n";
print KEYWORD "<a href=$b18>$c18</a><br>\n";
print KEYWORD "<a href=$b19>$c19</a><br>\n";
print KEYWORD "<a href=$b20>$c20</a><br>\n";
print KEYWORD "<a href=$b21>$c21</a><br>\n";
print KEYWORD "<a href=$b22>$c22</a><br>\n";
print KEYWORD "<a href=$b23>$c23</a><br>\n";
print KEYWORD "<a href=$b24>$c24</a><br>\n";
print KEYWORD "<a href=$b25>$c25</a><br>\n";
print KEYWORD "<a href=$b26>$c26</a><br>\n";
print KEYWORD "<a href=$b27>$c27</a><br>\n";
print KEYWORD "<a href=$b28>$c28</a><br>\n";
print KEYWORD "<a href=$b29>$c29</a><br>\n";
print KEYWORD "<a href=$b30>$c30</a><br>\n";
print KEYWORD "<a href=$b31>$c31</a><br>\n";
print KEYWORD "<a href=$b32>$c32</a><br>\n";
print KEYWORD "<a href=$b33>$c33</a><br>\n";
print KEYWORD "<a href=$b34>$c34</a><br>\n";
print KEYWORD "<a href=$b35>$c35</a><br>\n";
print KEYWORD "<a href=$b36>$c36</a><br>\n";

print KEYWORD "</body></html>";

close (KEYWORD);