Help for this page
% 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