Hi, I just tried quotemeta with my new $A code which is '#i1*#lper/2+#ginsl-#cdz/2'. But it does not work with and without quotementa. I know its a mix of everything but somehow I would like to replace it without interpretation. So my code would be now:

#!/usr/bin/perl -w
#use strict;
my $SCU = 'C:/Users/user/Desktop/a.txt';
open (FILE, '<', $SCU) or die "$SCU File not found : $!";
my @lines = <FILE>;
close (FILE);

my $A= quotemeta '#i1*#lper/2+#ginsl-#cdz/2';
my $B= '$coin22';

my @newlines;

   push @newlines, s/$A/$B/rg for @lines;


open (FILE, '>', $SCU) or die "Could not open file $SCU: $!";
print FILE @newlines;
close (FILE);
[download]

Somebody has a suggestion for me? Thanks a lot! Best regards