Add replace line in file perl script