Tests for Embperl - Embperl sub Metacommand

Now we call the first sub via Execute: *txt* *txt*

Here goes some normal html text

*txt* And now the second via Execute: *perl_code* *perl_code* Here comes some perl: *perl_code* *perl_code* *perl_code* *perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* Now we call the first sub via Perl: *txt* *txt*

Here goes some normal html text

*txt* And now the second via Perl: *perl_code* *perl_code* Here comes some perl: *perl_code* *perl_code* *perl_code* *perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* -> Second time, other order: And now the second via Perl: *perl_code* *perl_code* Here comes some perl: *perl_code* *perl_code* *perl_code* *perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* Now we call the first sub via Perl: *txt* *txt*

Here goes some normal html text

*txt* -> And Execute again, but other order And now the second via Execute: *perl_code* *perl_code* Here comes some perl: *perl_code* *perl_code* *perl_code* *perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* Now we call the first sub via Execute: *txt* *txt*

Here goes some normal html text

*txt* And done!