my $string = qq~<table>
<tr>
<td>I love my Football Teams</td>
<td>My favorite Teams are:</td>
</tr>
<tr>
<td>Oklahoma Sooners</td>
<td><a href="http://example.com">Sooner Nation</a></td>
</tr>
<tr>
<td>SF 49ers</td>
<td>I miss Edward J. DeBartolo, Jr.!!!</td>
</tr>
</table>
~;