#!/usr/bin/perl -w      

  

use strict;


my $SCU='C:/Users/name/Desktop/a.txt';


open(FILE, "<$SCU") || die "File not found";

my @lines = <FILE>;

close(FILE);


my @newlines;

foreach(@lines) {
 
  $_ =~ s/<ABCD>/xyz/g;
 
  push(@newlines,$_);
}


open(FILE, "$SCU") || die "File not found";

print FILE @newlines;

close(FILE);
[download]

You should edit your first post instead of posting your code again. The editing area should appear just below your original post.

About your posted-again code, there's still no > in your second open, so you can't write on the file. Write open (FILE, ">", "$SCU") or die "Could not open file $SCU: $!";. $! is a special var that contains the error that occurred while trying to open your file.

If you do not want to modify the output of @lines in your for loop, you can either make an explicit copy with my $copy = $_; or, if you use a recent version of Perl, use the /r switch on the substitution, which means that the result is returned, and the original variable is not affected. If you do not write $var =~ s/pattern/replace/; but just s/pattern/replace; it works on $_ by default BTW. So in your case you could write (if you get an error, your version of Perl is probably too old):  push @newlines, s/<ABCD>/xyz/rg for @lines;

Hi, I just tried out your tip an I thought I got it..but I guess that is not the case :-(. The Code is now:

#!/usr/bin/perl -w

use strict;

my $SCU= 'C:/Users/Desktop/a.txt';


open(FILE, "<$SCU") || die "File not found";
my @lines = <FILE>;
close(FILE);

#my $copy = $_; 

my @newlines;
foreach(@lines) {
   push @newlines, s/<test>/xyz/rg for @lines;
}

open (FILE, ">", "$SCU") or die "Could not open file $SCU: $!";

print FILE @newlines;
close(FILE);
[download]

It is still no working. Can you tell me what I messed up? Thank you!