my ($v1,$value,$i);
open (FILE,"old.txt") or die $!;
open (NEW,">new.txt") or die $!;
while(<FILE>){
if($_ =~/string_/){
($v1, $v2) = split(/name/,$_);
($value) = split(/\(/,$v2);
}
$_ =~s/values/$value/;
print NEW $_;
}
~