Some tests for Embperl escaping

$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\>