#!/usr/npac/bin/perl

#/usr/local/bin/perl
$filename1='entry.list';

open(FILE1,"$filename1");
$n = 0;
while (<FILE1>) {
	$this = $_;
	#print $this;
	if ($this =~ /^"(\d+)","(...)","(\d+)",(.*)$/) {	
		print "$1,$3\n";
		$n++;
	}
}
#print "\nTotal $n built\n";
close(FILE1);
##############################################

exit;
