#! /usr/bin/perl

open (OUT,">tektonik.dat");
$datei="a1rep1.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a1rep2.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a1rep3.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a1rep4.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a1rep5.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a2rep9.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a3r01ff.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a3r05.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a3r05_1652.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a3r06ff.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a3r52.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a3r53ff.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a4rep11.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a4rep13.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}
$datei="a4rep51ff.txt";
if (-e $datei && -r _){
   open (IN,$datei);
   &anhaengen;
}

close (IN);
close (OUT);

sub anhaengen{
   while (<IN>) {
      print OUT;
   }
   return 1
}