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