Re^3: best way to print paragraphs of text

my $output = <<"    OUTPUT";
    Today is Monday. Bla bla bla.
    ...
    Who knows.
    MONDAY
    OUTPUT

$output =~ s/^    //gm;
print $output;

__END__
Today is Monday. Bla bla bla.
...
Who knows.
MONDAY
[download]

Comment on Re^3: best way to print paragraphs of text Download Code