#!/usr/bin/perl

use strict;


my $S="C:Users\name\Desktop\a.txt";


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

my @lines = <FILE>;
close(FILE);


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

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

print FILE @newlines;

close(FILE);


#################################################