Select Code to Download

while  (my $token = $stream->get_token) {
  if (($token->[0] eq 'C' and 
...
    print $token->[1];
  }
}

my $parsing=undef;
while  (my $token = $stream->get_token) {
...
    print $token->[1];
  }
}