[###### first sub #####]
[$sub tfirst$]
*1*
*1*
1.) Here goes some normal html text
*1*
[$endsub$]
[###### second sub #####]
[$sub tsecond $]
*2*
*2*2.) Here comes some perl:
*2*
*2*[- $foo = 'Hello world' -]
*2*
*2*foo = [+ $foo +]
*2*testdata = [+ $testdata +]
*2*
[$endsub$]