This seems to do the trick. I took the liberty of reading from <DATA> instead of your input filehandle, and writing just to standard output instead of to a filehandle. I just did that for the sake of making the solution easy to read. You can easily adapt it to read from any filehandle and print to any other filehandle.

my $number = 02;
while ( <DATA> ) {
    last if /^$number/;
}
while ( <DATA> ) {
    last if /^\d+/;    
    print if /^-/;
}

__DATA__
01
- three cans
- one file
- three balls
02
- none
- yes coffee
03
[download]

I hope this helps...