if ($today eq 'Monday') {
    print <<"    OUTPUT";
    Today is Monday. Bla bla bla.
    ...
    Who knows.
    MONDAY
}

##</code><code>##

print <<OUTPUT if $today eq 'Monday';
Today is Monday. Bla bla bla.
...
Who knows.
OUTPUT