if ($string =~ /\$ENV{([^}]+)}/) {
  $var = $ENV{$1};
}