open(IN,"c:\\h\CSSCS\\bin\\scripts\\ListofFile.txt") || die "Can't open ListofFile.txt:$!\n"; @lines = ; close IN; my $change_count = 0; @lines = map{$change_count ++ if s/ORGANIZT-3FC930/CSSCS/sgi;$_ } @lines; next unless $change_count; open(OUT,">c:\\h\\CSSCS\\bin\\scripts\\ListofFile.txt")|| "Can't open file for writing:$!\n"; print OUT @lines; close OUT;