More Code 

sub format {
  my($self, $text) = @_;

  return join "\n\n",
         map { $self->format_para($_) } 
         split /\n(?:[ \t]*\n)+/, $text;
}