##
# 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.$_;
}