$data =~ s/<# (\{.*?\}) #>/eval($1)/eg;