And for word wrap:

use strict;
use warnings;

my $text = join '', <DATA>;
print wordwrap($text, 45);

sub wordwrap {
    my ($text, $width, $result) = @_;
    for (split /\n/, $text) {
        while (length($_) > $width) {
            s/^(.{1,$width})\s+//;
            $result .= "$1\n";          
        }
        $result .= "$_\n";
    }
    return $result;
}

__DATA__
When in the Course of human events, it becomes necessary for one peopl
+e to dissolve the political bands which have connected them with anot
+her, and to assume among the powers of the earth, the separate and eq
+ual station to which the Laws of Nature and of Nature's God entitle t
+hem, a decent respect to the opinions of mankind requires that they s
+hould declare the causes which impel them to the separation.
[download]