$read(file.txt,p)
Change all the long lines to for example:
This is a very long line that has lots of unnecisairy stuff and vry bad spelling mistakes and stuff and tis really long and stuf and its longer than that and stuff and its rlly rlly o rly long bla bla bla bla bla
change it to:
This is a very long line that has lots of unnecisairy stuff and vry bad spelling mistakes | msg # and stuff and tis really long and stuf and its longer than | msg # that and stuff and its rlly rlly o rly long bla bla bla bla bla