{
  local($/) = "...end of paragraph delimiter...";
  while (<F>) {
    my $line = process_paragraph($_);
    print OUT2 $line;
  }
}