aa|Dial up connection|56K|009|ba
ab|Cable Modem|128K|010|bb

##</code><code>##

key|description|speed|ref|qid

##</code><code>##

...
$pessoais = "produtos/pessoais.dat";
$mailprog = '/usr/sbin/sendmail';

$search_for   = "a";
$search_field = "all";

&search_database($pessoais,$search_for);
$count = @results;
...

...
foreach $results (@results){
      ($key,$description,$speed,$ref,$qid) = split(/+\|/,$results);
print MAIL "$description $FORM{$qid}\n\n";
}
...