$line =~ s/(\$[a-zA-Z0-9_]+)/ eval ($1) /ge;