$string =~ s/\$(\w+)/ ${$1} /xeg;