Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        }
    }
}

#!/usr/bin/perl -w
use strict;

...
foreach (glob("$path\*")) {
    print "$1\n" if (-d and /\/(\d+)_\w*$/);
}