Select Code to Download

#!/usr/bin/perl -w
use diagnostics;
...
        next PARSE;
    }
}

while ( my $token = $stream->get_token ) {
    if(
...
        print $token->as_is if $token->is_text;
    }
}