$str =~ s/~~(\$.+?)~~/eval $1/ge;