foreach $results (@results){
	  ($field_1,$field_2,$field_3) = split(/\|/,$results);
print<<feach;
    <tr> 
    <td bgcolor="#C0C0C0" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">$field_1</font></td>
    </tr>
feach
}