while (<$input>)
    {
      chomp;
      next if /^ \s* #/;
      next if /^ \s* $/;

      if (/^ \s* ([^=\s]+) \s* = \s* (.+) $/x)
      {
        # name is in $1, value is in $2
      }
    }