foreach my $line ( @fileArr ) { next if $line =~ m/abcde<\/bindname>welcome<\/bindpass> $line =~ s/welcome<\/bindpass>/Welcome1<\/bindpass/ }