opendir DIR, "/path/to/mlb/incomingdir";
my ($todays_file) = reverse sort readdir(DIR);
closedir DIR;

##</code><code>##

opendir DIR, "/path/to/mlb/incomingdir";
my ($todays_file) = reverse 
                    sort 
                    grep {/mlb_boxscore\$\d{7}\.txt/} 
                    readdir(DIR);
closedir DIR;

##</code><code>##

my ($todays_file) = reverse sort grep {/mlb_boxscore\$\d{7}\.txt/} readdir(DIR);