use warnings;
use strict;

my $root = 'http://gd2.mlb.com/components/game/aaa/year_2007/month_08/day_06/gid_2007_08_06_quiaaa_yucaaa_1/batters/';
my @batters = map {"$root$_"} qw(112039.xml  120107.xml);

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