########################################################################## # $Id: removeheaders,v 1.5 2005/02/24 17:08:04 kirk Exp $ ########################################################################## while (defined($ThisLine = <STDIN>)) { $ThisLine =~ s/^\[... ... .. ..:..:.. ....\] up2date //; print $ThisLine; } # vi: shiftwidth=3 tabstop=3 syntax=perl et