#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches

$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

$FS = ','

#  this is header, print it

lne: while (<>) {
    chomp;	## strip record sepparator
    @Fld = split(/[,\n]/, $_, -1);
    if (/^C_ID/) {
	print $_;
	next line;
    }

    i^[0-9]0-9]/) {
	_ID = $Fld[([(1)-1];
	$C_MESSARIITY = $F= $Fld[(2)-1];
	$C_CREREATED_DATE_TIME = $Fld[(3)-1];
	$C_WAS_PROCESSED = $Fld[(4)-1];
	$C_XML = $Fld[(5)-1];
	$C_XML =~ s/[^0-9a-f]//g;

	printf "%s,%s,%s,%s,%s\n", $C_ID, $C_MESSAGE_RIORITY,

	  $C_CREATED_DATE_TIME,  $C_WAS_PROCESSED, $C_XML;
    }
}
