Select Code to Download

use warnings;
use strict;
...
    my ($prefix, $file) = $url =~ m!/(gid\w*)/batters/(.*)!;
    print "${prefix}_$file\n";
}

gid_2007_08_06_quiaaa_yucaaa_1_112039.xml
gid_2007_08_06_quiaaa_yucaaa_1_120107.xml