text

<# { if (a == b) { print "a=b"; } } #> and more stuff
<# { print 4*3;  } #> and more stuff and so on....

##</code><code>##

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