my %safe = map { $_ => 1 } qw(
    HOME_ROOT
);

s/\$(\w+)/ $safe{$1} && exists($ENV{$1}) ? $ENV{$1} : "\$$1" /eg