my ($number,$article) = split /\s+/, $line, 2