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