>perl -ne"next unless /^4-Dec-2009/; print; last }{ print while <>" junk.dat
4-Dec-2009,78,198
5-Dec-2009,98,155
6-Dec-2009,10,180
7-Dec-2009,51,91
8-Dec-2009,32,130
9-Dec-2009,29,207