Here it starts with some HTML Text

First of all assign a value: [- $a = '(this is the value in $a)' -]
Now we have some 'Umlaute': [- $b = "$a äöüäöü???<\&+ " -] [- $id = "abcdefghijklmnopqrstuvwxyz" ; $text = "This is a text ? \& + - " -] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
What is the EscMode? [+ $escmode +] Now a Url: Here it goes [+ $escmode = 1 +] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
What is the EscMode? [+ $escmode +] Now a Url: Here it goes [+ $escmode = 2 +] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
What is the EscMode? [+ $escmode +] Now a Url: Here it goes [+ $escmode = 0 +] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
What is the EscMode? [+ $escmode +] Now a Url: Here it goes [+ $escmode = 3 +] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
What is the EscMode? [+ $escmode +] Now a Url: Here it goes What is the EscMode? [+ $escmode +] [! sub foo($) { my @name ; my @data ; $name[0] = 'abcd' ; $data[0] = 'xyz' ; my $bar = $_[0]; return "file.html?name=$name[$bar]&data=$data[$bar]"; } !] [+ foo (0) +] Now we localy set $escmode:
[+ local $escmode = 0 ; $b +]
[+ local $escmode = 1 ; $b +]
[+ local $escmode = 2 ; $b +]
[+ local $escmode = 3 ; $b +]
[+ $n = 'My Name öäü' ; $escmode = 0 +] [+ $escmode = 0 +]
We can avoid interpreting [[- foo -] with a double [[[[
This should also work for [[* foo *]
[- $optRawInput = 0 -] [- $escmode = 0 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] '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 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] '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 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] '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 = 1 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] '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 \\\\' +]

Ok.