my $content = qr~\QC:\Programme\test~; 
my $string = q~C:\Programme\test\datei.txt~; 
$string =~ s/$content/./;
print $string;