use strict;
use warnings;
my $filename = "C:/mlb_boxscore107238$4820.txt";
open(INPUT, '<'.$filename) or die "Can't open $filename: $!\n";