while(<FILE>) {
  if (my ($key) = /\$(\w+)/) {
    defined($ENV{$key}) and s/\$$key/$ENV{$key}/ or $undefinedVars++;
  }
  print;
}