Select Code to Download

  if (/^\s*(\w+)\s*=\s*(?:"([^"]*)"|(.*))/) {
    my ($name, $val) = ($1, $+);
    $vars{$name} = $val;
    $depend{$name} = [ $vars{$name} =~ /\$(\w+)/g ]; # <---
  }

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