in reply to delete last CR and LF from txt
perl -i.bak -nle"while ($empty) { --$empty; print '' } if (length()) { + print } else { ++$empty }" filename [download]
For example,
foo CR LF bar CR LF CR LF CR LF [download]
foo CR LF bar CR LF [download]