Some tests for Embperl escaping

Here it starts with some HTML Text

First of all assign a value:
Now we have some 'Umlaute': Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöüäöü???<&+
What is the EscMode? 3 Now a Url: Here it goes 1 Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöüäöü???<&+
What is the EscMode? 1 Now a Url: Here it goes 2 Now lets look what we are getting from this:
(this+is+the+value+in+$a) (this+is+the+value+in+$a)+äöüäöü%3F%3F%3F<%26%2B++
What is the EscMode? 2 Now a Url: Here it goes 0 Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöüäöü???<&+
What is the EscMode? 0 Now a Url: Here it goes 3 Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöüäöü???<&+
What is the EscMode? 3 Now a Url: Here it goes What is the EscMode? 3 file.html?name=abcd&data=xyz Now we localy set $escmode:
(this is the value in $a) äöüäöü???<&+
(this is the value in $a) äöüäöü???<&+
(this+is+the+value+in+$a)+äöüäöü%3F%3F%3F<%26%2B++
(this is the value in $a) äöüäöü???<&+
0 0
We can avoid interpreting [- foo -] with a double [[
This should also work for [* foo *]
$optRawInput 0 $escmode 0 'here is a \ ' -> here is a \ 'here is a \\ ' -> here is a \ 'here is a \\\ ' -> here is a \\ 'here is a \\\\ ' -> here is a \\ 'here is a ' -> here is a 'here is a \ ' -> here is a 'here is a \\ ' -> here is a \ 'here is a \\\ ' -> here is a \ 'here is a \\\\ ' -> here is a \\ 'here is a \ ' -> here is a 'here is a \\ ' -> here is a \ 'here is a \\\ ' -> here is a \ 'here is a \\\\ ' -> here is a \\ $optRawInput 1 $escmode 0 'here is a \ ' -> here is a \ 'here is a \\ ' -> here is a \ 'here is a \\\ ' -> here is a \\ 'here is a \\\\ ' -> here is a \\ 'here is a ' -> here is a 'here is a \ ' -> here is a \ 'here is a \\ ' -> here is a \ 'here is a \\\ ' -> here is a \\ 'here is a \\\\ ' -> here is a \\ 'here is a \ ' -> here is a \ 'here is a \\ ' -> here is a \ 'here is a \\\ ' -> here is a \\ 'here is a \\\\ ' -> here is a \\ $optRawInput 0 $escmode 1 'here is a \ ' -> here is a 'here is a \\ ' -> here is a 'here is a \\\ ' -> here is a \ 'here is a \\\\ ' -> here is a \ 'here is a ' -> here is a 'here is a \ ' -> here is a <tag> 'here is a \\ ' -> here is a ' -> here is a ' -> here is a \<tag> 'here is a \ ' -> here is a <tag> 'here is a \\ ' -> here is a 'here is a \\\ ' -> here is a ' -> here is a \<tag\> $optRawInput 1 $escmode 1 'here is a \ ' -> here is a 'here is a \\ ' -> here is a 'here is a \\\ ' -> here is a \ 'here is a \\\\ ' -> here is a \ 'here is a ' -> here is a <tag> 'here is a \ ' -> here is a ' -> here is a ' -> here is a \<tag> 'here is a \\\\ ' -> here is a \<tag> 'here is a \ ' -> here is a 'here is a \\ ' -> here is a 'here is a \\\ ' -> here is a \<tag\> 'here is a \\\\ ' -> here is a \<tag\>

Ok.