#!/usr/bin/perl -w
# 822par - reflow mail message, keeping headers valid
use strict;

while (<>) {
  s/\R/\n/;
  s/(.{1,72}\S|\S+)\s+/$1\n/mg;
  s/^(?<!\A)/\t/mg;
  print;
  last  if /^$/;
}

$ENV{"PARINIT"}="rTbgqie B=.,?!_A_a Q=_s>|+ P=-";
open (OUT, "| par 72") or *OUT = *STDOUT;
while (<>) {
  print OUT;
}
close(OUT);