- $toktype = 'id', return
- if ($token) = $line =~ /\G([a-zA-Z_][a-zA-Z_.0-9]*)/gc;
- $toktype = 'int', return if ($token) = $line =~ /\G[0-9]+/gc;
+ $toktype = 'id', $token = $1, return
+ if $line =~ /\G([a-zA-Z_][a-zA-Z_.0-9]*)/gc;
+ $toktype = 'int', $token = $1, return if $line =~ /\G([0-9]+)/gc;