% perl -lne 'print substr($_, 0, 30) if /^2004/' 462148.pl
2004-01-05 22:37:48:879 : xscW
2004-01-05 22:38:52:019 : xscW
2004-01-05 22:43:02:239 : xscW
2004-02-05 22:37:48:879 : xscW
2004-02-05 22:38:52:019 : xscW
2004-02-05 22:43:02:239 : xscW
2004-02-05 22:43:50:769 : xscW
2004-02-05 22:44:51:979 : xscW
2004-02-05 22:47:12:879 : xscW
2004-02-05 22:49:50:059 : xscW
2004-02-05 22:49:50:079 : xscW
% perl -lne 'print substr($_, 0, 30) if /^2004/' 462148.pl | wc
     11      44     341