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");

##</code><code>##

while (<IN_FILE>)
{
s/^[ ]*//g;
s/[ ]*$//g;
s/\:000[A,P]M//g;
s/99991231//g;
s/Jan 1 1900 12:00:00//g;
s/[ ]*\~\t\~[ ]*/~/g;
}

##</code><code>##

while (<IN_FILE>)
{
s/^[ ]*//g;
s/[ ]*$//g;
s/\:000[A,P]M//g;
s/99991231//g;
s/Jan 1 1900 12:00:00//g;
s/[ ]*\~\t\~[ ]*/~/g;
@INPUT_FIELDS = split /~/, $_;
for ($i=0; $i<=$#PROC_FIELDS; $i++) {
$MY_INDEX = $PROC_FIELDS[$i] - 1;
if ( $INPUT_FIELDS[$MY_INDEX] =~/SUN/ ) {
$INPUT_FIELDS[$MY_INDEX] = "";
}
}
$MYLINE = join "~", @INPUT_FIELDS;

print OUT_FILE $MYLINE;
}
close(IN_FILE);
close(OUT_FILE);