# please note: i always miss some punctuation mark or some other oversight
# so this may/may not work, but you get the idea...

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>";

my $printcounter = 1;
foreach $_(@cut){
	print "$_";
	$printcounter++;
	# you can put whatever number you want in here and substitute <WBR> for <BR>
	# if you like (maybe use $printcounter of 4 with <WBR> or something)
	if ($printcounter==16){	print "<BR>";
				$printcounter=1;}}
print "</TD></TR>";