Remove extra print.

amica.pl

         $cur_food .= "\n" if $cur_food ne "";
         $cur_food .= $Component;
       }
-      print $cur_food . "\n";
       push @cur_day_foods, utf8_to_8859($cur_food) if ($cur_food ne "");
       $cur_food = "";
     }