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

That is a very complicated way of doing what you really want, which is probably this:

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

Next problem:

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

The s/// substitution is useless. This block of code only executes when $value1 equals $ag. So you're replacing the value with itself! I think you want if() rather than unless(). And you're probably right about removing the /g flag.

While we're at it, your $value1 could have special regex characters, so you should protect them with \Q..\E syntax:

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

Update: Added \Q..\E recommendation.

buckaduck