perl -i -n -e '
while ($_ =~ /\${([^\$]*)}/g) {
        $s = "\\" . $&; 
        $t = $ENV{$+};
        s/$s/$t/e;
} print $_;' file