EOF eller qq{} i Perl?!

Er det muligt at smide nedenstående EOF ind i en variabel, så man kan printe indholdet senere i scriptet med noget ala:

print "Content-Type: Text/HTML\015\012\015\012";
print $EOF;

Eksempel:
while ($Tilstand)
{
print <<EOF
<tr>
    <td>
        $Variabel
    </td>
</tr>
EOF
;
}

Har også kigget lidt på qq{}-funktionen.
Hvad er forskellen på EOF og qq{} og hvad er mest korrekt at gøre i ovenstående eksempel?


// Street^