% perl -ne 'print unless (/^banana$/ ..  /^grape$/) =~ /^1?$|E/' fruit.txt
pear
peach