$string =~ s/%([^%]*)%/$ENV{$1} || "%$1%"/eg