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";
}