s/\:000[A,P]M|99991231|Jan 1 1900 12:00:00//g;

##</code><code>##

my @input_field_indexes = map($_-1, @PROC_FIELDS);

##</code><code>##

for my $field (@INPUT_FIELDS[ @input_field_indexes ]) {
  $field = '' if $field =~ /SUN/;
}