Select Code to Download

% perl -lne 'printf "%-6s  %s\n", $_, scalar(/^banana$/ ..  /^grape$/)
+' fruit.txt
apple   
...
peach   3
grape   4E0
orange

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