my $len;
$text =~ s/((\S+)(?=\n|\s)|\n)/     # Reformat plain text
            if ($1 eq "\n") {       # wrapping at col 60
                $len = 0;
                $1
           } elsif ($len + length($1) > 60) {
                $len = length($1) + 1;
                "\n$1"
           } else {
                $len += length($1) + 1;
                $1
           }
          /mge;