while (<CONFIG>) {
    next if (/^#/); 
    ($var,$value) = split(/=/);
    $value =~ s/[\$,",',;]//g;
    $configvar{$var}=$value;
}