#! D:\Perl

use strict;
use warnings;
use Cwd;

my $Pfad = cwd;
$Pfad =~ s/\//\\/g;

open EINGABEPARAMETER, "Original.PAR";
open AUSGABEPARAMETER, ">Faelschung.PAR";

binmode(EINGABEPARAMETER);
binmode(AUSGABEPARAMETER);

while (<EINGABEPARAMETER>) {
    s/c:\\Pfad/$Pfad/;
    print AUSGABEPARAMETER;
    }
    
close EINGABEPARAMETER;
close AUSGABEPARAMETER;