$ perl plus_minus.pl
Positives are : peach, cherry, apple,
Negatives are : banana, cherry,