foreach $line (@array){
if ($line =~ /\Q$search\E/i){

($category,$item_name,$item_price,$item_picture)=split(/\|/,$line);

print <<End_of_line;
    <tr>
        <td valign=top CLASS=MENU1>
	<img src="$photo_loc/$photo1" width=75 height=75><BR>
		<B>$item_name</B><BR>
		$item_price<BR>
        </td>
    </TR>
End_of_line
}
}