open(HTML, ") { $row =~ s/---(.*?)---/eval $1/eg; print $row; } close HTML;