Id = $ENV{APPL}

##</code><code>##

$string = '$ENV{APPL}';
$var =  eval $string;

##</code><code>##

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