You may be interested in Text::Wrap and/or Text::Autoformat, which attempts to automate the "cleaning up" of text.

In any event, \s also matches \r and \n ("vertical" whitespace), so your first two lines are unneeded.