$value =~ s((\$\{(\w+)\}|\$(\w+)))
           ($ENV{$2} or $ENV{$3} or $1)eg;

##</code><code>##

key1=value
key2=value$key1
key3=${key1}value