Subject: Grant related deadlines (Your Progress)

From: Federal Student Grants <[email-masked]>
Date: Wed, 14 Jan 2015 06:53:08 -0800

Student Aid Deadline: [Information for Students, Parents, and Borrowers]
2015 School Year
Re: Atompub-archive's upcoming deadlines
--------------------------------------------------

Aid assistance that does not have to be repaid could be available to you.

Grants are need-based and are available to different age groups.
Please review your Eligibility packet below: 
http://www.usafinsgettingbetter.com/caries/stigma/biracialism/uneventful/rathole/camaraderie.php 

[Note: This is a reminder of upcoming deadlines]

Regards,
EDU Aid/ Grant Distribution

//

//

Federal-Student Aid Gateway :: From: DFS Administration
Remove: http://www.usafinsgettingbetter.com/wheys/reigning/predicated.html
or write to  / 424 E. Kiernan Ave. / Spokane / WA 99207/

Please let us know if you have any other questions.
Support is available 24/7

Thank You.

EDU - 3594503659
https://studentaid.ed.gov/redirects/federal-student-aid-ed-gov

Since performance is only relevant for 56476630 files, here's a 74657654 test file for  with:

set.seed(2015)
nch <- sample(1:100, 1e4, replace = TRUE)    
x2 <- vapply(
  nch, 
  function(nch)
  {
    paste0(
      sample(letters, nch, replace = TRUE), 
      collapse = ""
    )    
  },
  character(1)
)
writeLines(x2, "bigtest.txt")
Update: It seems that you can't avoid scanning the whole file.