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