Select Code to Download

 # Your code
 $_ =~ /^(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*?)\*(.*?)
+\*(.*?)\*(.*?)$/;
 my $value1=$1;

 # My code
 my ($value1) = split /\*/;

 # Your code
 unless($value1 ne $ag) {
   s/$value1/$ag/g; 
   $save_list=$save_list.$_;
 }

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