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