$input =~ s/(\$.*?) /eval ("\$tmp = $1;"); "$tmp "/e;