I'm thinking a loop of some sort, but there is a gap of numbers.

You could still use a loop, e.g.

for my $n (1..22,50,60,70,80,97) {
    my $path = sprintf "D:/DOWNLOAD/DISTRBTN/I01/B%02d/", $n;
    if (-e $path) { 
        #... 
    }
}
[download]