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/matthew_rice/util/cvs2p4/test/norm#5 $ # # 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; print; }