Select Code to Download

apple
cherry
peach
banana
cherry

apple    +
cherry    -
cherry    +
peach    +
banana    -

#!/usr/bin/perl -w
use strict;
...
    print "my negatives are $line", "\n";
    }
}