perl -pi -e 's/[ ]*\~\t\~[ ]*/~/g' a.dat");
perl -pi -e 's\/^[ ]*\/\/g' a.dat");
perl -pi -e 's/\:000[A,P]M//g' a.dat");
perl -pi -e 's/99991231//g' a.dat");
perl -pi -e 's/Jan 1 1900 12:00:00//g' a.dat");