while(<>) {
  s/\$([A-Z]+)/$ENV{$1}/g;
  print $_;
}