$line =~ s/(=\s*)[^#\s]+(?:\s+[^#\s]+)*/$1$changes{$key}/ if(defined($changes{$key}));