Some tests for Embperl

[- $a = ' and more' -]

Hallo

Here it starts with some HTML Text

[- $aaa = 1 -]
[- $fdat{ VERSION } = 3 -] = 3 $] WIDTH=35 [$ endif $]> = 4 $] WIDTH=35 [$ endif $]> = 3 $] foo="" [$ endif $]> = 4 $] foo="" [$ endif $]> [- @ks = sort keys %idat -]

[+ $ks[$row] +] | [+ $fdat{$ks[$row] || ''} +]

[- $stuff = ("X" x 79 . "\n") x 26; -] Testing ... length of STUFF=[+ length($stuff) +]

[- $stuff = "X" x 2046; -] Testing ... length of STUFF=[+ length($stuff) +]

[- $stuff = "X" x 2047; -] Testing ... length of STUFF=[+ length($stuff) +]

[- $stuff = "X" x 2048; -] Testing ... length of STUFF=[+ length($stuff) +]

[- $stuff = "X" x 2049; -] Testing ... length of STUFF=[+ length($stuff) +]

[- $stuff = "X" x 2050; -] Testing ... length of STUFF=[+ length($stuff) +]

[- $stuff = "X" x 30000; -] Testing ... length of STUFF=[+ length($stuff) +]