I have tried using <TABLE WIDTH = 100%>", "<TABLE WIDTH = "100%">", "<TD WIDTH = "100%">", "<WBR>", and a few others but none of them work.

sub show_Enzyme_Output()
{
    my ( $counter, $recSite, $element,$anotate,@fragments) = @_;
    print("<TABLE BORDER=2 WIDTH=100%>");
    print("<TR><TD WIDTH=100%><B>Enzyme number $counter</B></TR></TD>");
    print("<TR><TD WIDTH=100%>");
    print("The cleavage site is <B>$recSite</B> for enzyme $element denoted by \" ^ \"<BR></TD></TR>");
    print("<TR><TD WIDTH=100%>The annotated sequence is given below along with the digested sequence<BR>");
    print("<B>Annotated:</B>$anotate<BR>");
    print("<B>Digested:</B>@cut</TD></TR>");
    print("</TABLE><BR><BR>");
}