if (1) {
  (my $sOutput = <<'OUTPUT') =~ s/^\s+|\n(?!\s+\n)//gm;
    Today is Monday, my favorite day of the week.
    It is my favorite day because Jerry said "Monday
    is the best day of the week".  Tuesday is my second-favorite day.
    Why can't all days be as great as Monday?  Who knows.





    This is a second paragraph.
OUTPUT
  print "$sOutput\n";
}

##</code><code>##

Today is Monday, my favorite day of the week.It is my favorite day because Jerry said "Mondayis the best day of the week".  Tuesday is my second-favorite day.Why can't all days be as great as Monday?  Who knows.
This is a second paragraph.

##</code><code>##

Today is Monday, my favorite day of the week.
It is my favorite day because Jerry said "Monday
is the best day of the week".  Tuesday is my second-favorite day.
Why can't all days be as great as Monday?  Who knows.





This is a second paragraph.