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