while () {
    print <<END;
        my text
    END
}

##</code><code>##

while () {
    print <<END;
        my text
END
}

##</code><code>##

    print <<    END;

##</code><code>##

$sth=$dbi->prepare( q/
     SELECT * FROM my_table WHERE AVERAGE( cost ) < ?
     /) or die DBI->errstr;