Some Plain tests for Embperl using optRawInput

Here it starts with some HTML Text

All values should be undefined: $a =
$b =
$c =
$d =
$e =
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) &auml;&ouml;&uuml;
And now a and b together: (this is the value in $a)(this is the value in $a) &auml;&ouml;&uuml;

Here we have some HTML tags within the perl code,
Embperl will not delete them when optRawInput is set !
<BR> 6 + 17 <font size="3"> * 3 Here we have something which looks like a HTML tag, but does not start with
a character, Embperl does not change them!
SELECT * FROM a ORDER BY b USING <; Hi There> Embperl will not translate HMTL escapes to the right characters
when optRawInput is set
2 &lt; 6 Now they should have a value $a = (this is the value in $a)
$b = (this is the value in $a) &auml;&ouml;&uuml;
$c = <BR> 6 + 17 <font size="3"> * 3
$d = 2 &lt; 6
$e = 2

Ok.

optRawInput is now: 1
optRawInput is set now to: 1
optRawInput is now: 1
<BR> 6 + 17 <font size="3"> * 3 Now lets look what we are getting from this:
$a = (this is the value in $a)
$b = (this is the value in $a) &auml;&ouml;&uuml;
$c = <BR> 6 + 17 <font size="3"> * 3
optRawInput is now: 1
optRawInput is set now to: 0
optRawInput is now: 0
<BR> 6 + 17 <font size="3"> * 3 Now lets look what we are getting from this:
$a = (this is the value in $a)
$b = (this is the value in $a) &auml;&ouml;&uuml;
$c = <BR> 6 + 17 <font size="3"> * 3