print qq{
<table border="2" width="100%">
  <tr>
    <td width="100%"><b>Enzyme number $counter</b></td>
  </tr>
  <tr>
    <td width="100%">
      The cleavage site is <b>$recSite</b> for enzyme
      $element denoted by ' ^ '
    </td>
  </tr>
  <tr>
    <td width="100%">
        The annotated sequence is given below along with
        the digested sequence
        <ul>
          <li><b>Annotated:</b> $anotate</li>
          <li><b>Digested:</b> @cut</li>
        </ul>
    </td>
  </tr>
</table>
};