# My code
 if ($value1 ne $ag) {
   s/\Q$value1\E/$ag/; 
   $save_list=$save_list.$_;
 }