my $ token = readToken();
while (length($token) > 0) {
  # do stuff with $token
  $token = readToken();
}