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