Select Code to Download

sub process {
    my $src = shift;
...
# possibly extra external logging if something went wrong
    return $@ ? "<B>Error in '$src': $@</B>" : $value;
}

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