while($ebuildcontents =~ /\b([-A-Z0-9_]+)\s*=\s*\"(.*?)\"/sgc) {
    my ($var, $value) = ($1, $2);
    $ebuildvars{$var} = $value;
    $vardepend{$var} = [ $value =~ /\$\{?(\w+)\}?/g ];
  }