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

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


$a1 = @fileinput1[0];
$b1 = index($a1,"/in");
$c1 = substr($a1,0,$b1);
$d1 = substr($c1,8);


$a2 = @fileinput1[1];
$b2 = index($a2,"/in");
$c2 = substr($a2,0,$b2);
$d2 = substr($c2,8);


$a3 = @fileinput1[2];
$b3 = index($a3,"/in");
$c3 = substr($a3,0,$b3);
$d3 = substr($c3,8);

$a4 = @fileinput1[3];
$b4 = index($a4,"/in");
$c4 = substr($a4,0,$b4);
$d4 = substr($c4,8);

$a5 = @fileinput1[4];
$b5 = index($a5,"/in");
$c5 = substr($a5,0,$b5);
$d5 = substr($c5,8);

$a6 = @fileinput1[5];
$b6 = index($a6,"/in");
$c6 = substr($a6,0,$b6);
$d6 = substr($c6,8);

$a7 = @fileinput1[6];
$b7 = index($a7,"/in");
$c7 = substr($a7,0,$b7);
$d7 = substr($c7,8);

$a8 = @fileinput1[7];
$b8 = index($a8,"/in");
$c8 = substr($a8,0,$b8);
$d8 = substr($c8,8);

$a9 = @fileinput1[8];
$b9 = index($a9,"/in");
$c9 = substr($a9,0,$b9);
$d9 = substr($c9,8);

$a10 = @fileinput1[9];
$b10 = index($a10,"/in");
$c10 = substr($a10,0,$b10);
$d10 = substr($c10,8);

$a11 = @fileinput1[10];
$b11 = index($a11,"/in");
$c11 = substr($a11,0,$b11);
$d11 = substr($c11,8);


$a12 = @fileinput1[11];
$b12 = index($a12,"/in");
$c12 = substr($a12,0,$b12);
$d12 = substr($c12,8);

$a13 = @fileinput1[12];
$b13 = index($a13,"/in");
$c13 = substr($a13,0,$b13);
$d13 = substr($c13,8);

$a14 = @fileinput1[13];
$b14 = index($a14,"/in");
$c14 = substr($a14,0,$b14);
$d14 = substr($c14,8);

$a15 = @fileinput1[14];
$b15 = index($a15,"/in");
$c15 = substr($a15,0,$b15);
$d15 = substr($c15,8);

$a16 = @fileinput1[15];
$b16 = index($a16,"/in");
$c16 = substr($a16,0,$b16);
$d16 = substr($c16,8);

$a17 = @fileinput1[16];
$b17 = index($a17,"/in");
$c17 = substr($a17,0,$b17);
$d17 = substr($c17,8);

$a18 = @fileinput1[17];
$b18 = index($a18,"/in");
$c18 = substr($a18,0,$b18);
$d18 = substr($c18,8);

$a19 = @fileinput1[18];
$b19 = index($a19,"/in");
$c19 = substr($a19,0,$b19);
$d19 = substr($c19,8);

$a20 = @fileinput1[19];
$b20 = index($a20,"/in");
$c20 = substr($a20,0,$b20);
$d20 = substr($c20,8);

$a21 = @fileinput1[20];
$b21 = index($a21,"/in");
$c21 = substr($a21,0,$b21);
$d21 = substr($c21,8);


$a22 = @fileinput1[21];
$b22 = index($a22,"/in");
$c22 = substr($a22,0,$b22);
$d22 = substr($c22,8);


$a23 = @fileinput1[22];
$b23 = index($a23,"/in");
$c23 = substr($a23,0,$b23);
$d23 = substr($c23,8);

$a24 = @fileinput1[23];
$b24 = index($a24,"/in");
$c24 = substr($a24,0,$b24);
$d24 = substr($c24,8);

$a25 = @fileinput1[24];
$b25 = index($a25,"/in");
$c25 = substr($a25,0,$b25);
$d25 = substr($c25,8);

$a26 = @fileinput1[25];
$b26 = index($a26,"/in");
$c26 = substr($a26,0,$b26);
$d26 = substr($c26,8);

$a27 = @fileinput1[26];
$b27 = index($a27,"/in");
$c27 = substr($a27,0,$b27);
$d27 = substr($c27,8);

$a28 = @fileinput1[27];
$b28 = index($a28,"/in");
$c28 = substr($a28,0,$b28);
$d28 = substr($c28,8);

$a29 = @fileinput1[28];
$b29 = index($a29,"/in");
$c29 = substr($a29,0,$b29);
$d29 = substr($c29,8);

$a30 = @fileinput1[29];
$b30 = index($a30,"/in");
$c30 = substr($a30,0,$b30);
$d30 = substr($c30,8);

$a31 = @fileinput1[30];
$b31 = index($a31,"/in");
$c31 = substr($a31,0,$b31);
$d31 = substr($c31,8);


$a32 = @fileinput1[31];
$b32 = index($a32,"/in");
$c32 = substr($a32,0,$b32);
$d32 = substr($c32,8);

$a33 = @fileinput1[32];
$b33 = index($a33,"/in");
$c33 = substr($a33,0,$b33);
$d33 = substr($c33,8);



$a34 = @fileinput1[33];
$b34 = index($a34,"/in");
$c34 = substr($a34,0,$b34);
$d34 = substr($c34,8);

$a35 = @fileinput1[34];
$b35 = index($a35,"/in");
$c35 = substr($a35,0,$b35);
$d35 = substr($c35,8);

$a36 = @fileinput1[35];
$b36 = index($a36,"/in");
$c36 = substr($a36,0,$b36);
$d36 = substr($c36,8);



rename ("no1", "$d1") or die $!;
rename ("no2", "$d2") or die $!;
rename ("no3", "$d3") or die $!;
rename ("no4", "$d4") or die $!;
rename ("no5", "$d5") or die $!;
rename ("no6", "$d6") or die $!;
rename ("no7", "$d7") or die $!;
rename ("no8", "$d8") or die $!;
rename ("no9", "$d9") or die $!;

rename ("no10", "$d10") or die $!;
rename ("no11", "$d11") or die $!;
rename ("no12", "$d12") or die $!;
rename ("no13", "$d13") or die $!;
rename ("no14", "$d14") or die $!;
rename ("no15", "$d15") or die $!;
rename ("no16", "$d16") or die $!;
rename ("no17", "$d17") or die $!;
rename ("no18", "$d18") or die $!;
rename ("no19", "$d19") or die $!;

rename ("no20", "$d20") or die $!;
rename ("no21", "$d21") or die $!;
rename ("no22", "$d22") or die $!;
rename ("no23", "$d23") or die $!;
rename ("no24", "$d24") or die $!;
rename ("no25", "$d25") or die $!;
rename ("no26", "$d26") or die $!;
rename ("no27", "$d27") or die $!;
rename ("no28", "$d28") or die $!;
rename ("no29", "$d29") or die $!;


rename ("no30", "$d30") or die $!;
rename ("no31", "$d31") or die $!;
rename ("no32", "$d32") or die $!;
rename ("no33", "$d33") or die $!;

rename ("no34", "$d34") or die $!;
rename ("no35", "$d35") or die $!;
rename ("no36", "$d36") or die $!;