Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    return if $File::Find::dir =~ m{ zoo/(?!abc) }x;
    return @_
}