s/\$ENV{(\w+)}/$ENV{$1}/ge;

##</code><code>##

s/\$ENV{(\w+)}/ exists $ENV{$1} ? $ENV{$1} : "\$ENV{$1}" /ge;