#!/usr/bin/perl -w
##########################################################################
# $Id: removeheaders,v 1.2 1998/07/30 19:44:46 kirk Exp $
##########################################################################
# $Log: removeheaders,v $
# Revision 1.2  1998/07/30 19:44:46  kirk
# Prepping for Version 1.4.2
#
# Revision 1.1  1998/05/11 13:03:27  kirk
# Applied some wonderful patches sent in by
# Luuk de Boer <luuk_de_boer@pi.net>.
#
##########################################################################

########################################################
# This was written and is maintained by:
#    Luuk de Boer <luuk@pi.net>
#
# Please send all comments, suggestions, bug reports,
#    etc, to kirk@kaybee.org.
#
########################################################

while (defined($ThisLine = <STDIN>)) {
    $ThisLine =~ s/^..\/..\/.. ..:..:.. //;
    $ThisLine =~ s/^....\/..\/.. ..:..:.. //;
    print $ThisLine;
}
