$array[0] =~ s#^(\w+\s+=\s+).*$#$1$string#;