norm #1

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  & eval 'exec perl -S $0 $argv:q'
  if 0;
#  THE PRECEEDING STUFF EXECS perl via $PATH
# -*-Fundamental-*-

require 5.000;

#  $Id: //guest/perforce_software/archived/utils/cvs2p4/test/norm#1 $
#
#  Richard Geiger
#

while (<>)
  {
    $_ =~ s/[0-9]{4}\/[0-9]{2}\/[0-9]{2}/yyyy\/mm\/dd/g;
    $_ =~ s/[0-9]{2}:[0-9]{2}:[0-9]{2}/hh:mm:ss/g;
    $_ =~ s/Label testlabel yyyy\/mm\/dd 'Created by ([a-z]+)\. '/Label testlabel yyyy\/mm\/dd 'Created by user\. '/;
    print;
  }