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