sub readConfig {
  my ($file,$var) = @_;
  local ($_, $/);
  $/ = "\n";
  # rest of function
}