#!/usr/bin/perl
use 5.012;

my $protein = "chuck steak";

my $heredoc = <<END

<table border="1" width="50%" bgcolor="#CCFFFF">
<tr><td><b>  Peptide sequence frame 1</b></td></tr>\n
<tr><td>$protein </td> <td>also 'walnuts'</td></tr>
</table>
END
;

print $heredoc;