patternmatching in file

Hi all

code::
open (FH1, "list.txt") || die "Can't find the data file";
print "Enter the name you need";
$input = <STDIN>;
while(<FH1>)
{
$x =0;
$data1 = $_;
if($_ =~/load/)
{
$x = 1;
print $data1;
}
}
if($x)
{
print "No match found ";
}
close(FH1);



if the contents of the list file is
load=ram
load=sam
when I run my perl script it should ask for a input if I give the Input as
" test" then the contents of the file should be changed as

load=test
load=test

can anyone tell me how to do this,I have given the code I did so for..
Thnks in advance

re: patternmatching in file

post your code and please use the code tags. Also see this thread:

http://www.thescripts.com/forum/thread591710.html

re: patternmatching in file

Try this substitution:
Greetz, Doc

re: patternmatching in file

Unfortuneately, that will have no affect on the file even though the regexp is correct.

re: patternmatching in file

you can redirect the output to another file to make the changes
or define output file handle