-$INTERNAL{qq} = "\10"; #^P
-$INTERNAL{q} = "\17"; #^Q
-
-$header{'Content-Type'} = 'text/html';
-$header{Status} = '200 OK';
-
-$INTERNAL{code} = ReadFile($INTERNAL{file});
-
-while ($INTERNAL{code} =~ /<\((.*?)\)>/ ){
- ($INTERNAL{file} = $1) =~ s/[<>\|]//g;
- $INTERNAL{code} =~ s//ReadFile($INTERNAL{file})/e;
-}
-
-$INTERNAL{code} =~ s(<:)($INTERNAL{q};)g;
-$INTERNAL{code} =~ s(:>)(;\nprint q$INTERNAL{q})g;
-
-while ($INTERNAL{code} =~ /(<\[1(.*?)\]>(.*?)<\[2\]>(.*?)<\[3\]>)/s){
- $INTERNAL{naam} = $2;
- $BLOCK{"$INTERNAL{naam}-1"} = $3;
- $BLOCK{"$INTERNAL{naam}-2"} = $4;
- $INTERNAL{code} =~ s///; #Redo last match