open A, '<', './DateiA' or die $!;
open B, '>', './DateiB' or die $!;
while (<A>) {
   s/suche/ersetze/;
   print B;
}
close A;
close B;