D:\Compiler>perl Scanner.pl
int TYPE
y VARIABLE
, COMMA
z VARIABLE
; SEMICOLON
string TYPE
xx VARIABLE
; SEMICOLON
xx VARIABLE
= ASSIGN
a b c d STRING_DOUBLY_QUOTED
; SEMICOLON
y VARIABLE
= ASSIGN
123 INTEGER
; SEMICOLON
z VARIABLE
= ASSIGN
y VARIABLE
+ OPERATOR
12 INTEGER
- OPERATOR
( LEFT_PARENTHESIS
2 INTEGER
* OPERATOR
y VARIABLE
+ OPERATOR
3 INTEGER
) RIGHT_PARENTHESIS
; SEMICOLON
if CONDITIONAL
( LEFT_PARENTHESIS
y VARIABLE
+ OPERATOR
1 INTEGER
<= COMPARISSON
124 INTEGER
) RIGHT_PARENTHESIS
{ OPENING_SQUIGGLY
if CONDITIONAL
( LEFT_PARENTHESIS
xx VARIABLE
== ASSIGN
a b c d STRING_SIMPLY_QUOTED
) RIGHT_PARENTHESIS
{ OPENING_SQUIGGLY
y VARIABLE
= ASSIGN
z VARIABLE
+ OPERATOR
14 INTEGER
; SEMICOLON
} CLOSING_SQUIGGLY
} CLOSING_SQUIGGLY