open (DATEI1, <$datei1) or die $!;

while (<DATEI1>) {
    foreach (/([a-zA-Z]+)-([A-Z]+)/) {
        open  (<DATEI2, $datei2) or die $!;
        open  (>DATEI3, $datei3) or die $!;
        s/$1/$2/g;
    }
    print DATEI3;
}