geht-V
zu-VPART
weit-ADJ

geht zu weit
geht einen Schritt zu weit

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;
}

use strict;
use warnings;

my %lookup = ();
open(F1, "< datei1.txt") or die $!;
while(<F1>) {
   $_ =~ s![\r\n]+$!!;
   my ($key, $val) = split /-/, $_;
   $lookup{$key} = $val;
}
close F1;

my $r = join "|", map keys %lookup;

open(F2, "< datei2.txt") or die $!;
open(F3, "> datei3.txt") or die $!;
while(<F2>) {
   s!($r)!$lookup{$1}!ge;
   print F3 $_;
}
close F3;
close F3;

open my $fh, '<', $file1 or die $!;
my %replace = map { chomp; split /-/, $_, 2 } <$fh>;
my $re = join '|', sort { length $b <=> length $a } keys %replace;
close $fh;
open my $in, '<', $file2 or die $!;
open my $out, '>', $file3 or die $!;
while (my $line = <$in>) {
  $line =~ s/\b($re)\b/$replace{$1}/g;
  print $out $line;
}