while (<CONFIG>) {
    $bar = $1 if /^frz\s*=\s*(\w+);/;
}