#start the string from position 0
$revprotein3 = substr($dna,3);
#Translate the DNA to protein
$revprotein3 = dna2peptide($revprotein3);
#Print the sequence in lines of 50 characters long
print "\n\n<----------------Reverse compliment peptide frame 3----------------> \n\n";
print_sequence ($revprotein3,50); 

# printing data sequences to HTML
print OUTFILE "<table boarder = 0 width = 25>
<tr><td> Peptide sequence frame 1</td></tr>
<tr></tr>
<tr><td> $protein </td></tr>
<tr></tr>
<tr><td> Peptide sequence frame 2 </td></tr>
<tr></tr>
<tr><td> $protein2 </td></tr>
<tr></tr>
<tr><td> Peptide sequence frame 3 </td></tr>
<tr></tr>
<tr><td> $protein3 </td></tr>
<tr></tr>
<tr><td> Peptide reverse compliment sequence Frame 1 </tr></td>
<tr></tr>
<tr><td> $revprotein </td></tr>
<tr></tr>
<tr><td> Peptide reverse compliment sequence Frame 2 </tr></td>
<tr></tr>
<tr><td> $revprotein2 </td></tr>
<tr></tr>
<tr><td> Peptide reverse compliment sequence Frame 2 </tr></td>
<tr></tr>
<tr><td> $revprotein3 </td></tr>";