$juusho ="";
$seibetsu = "";
$nenrei = 0;

while(<>) {
	s/[\r\n]//g;
	@field = split( /:/, $_ );

	if ( ( $. % 3 ) == 1 ) {
		$juusho = $field[1];
	}

	if ( ( $. % 3 ) == 2 ) {
		$seibetsu = $field[1];
	}

	if ( ( $. % 3 ) == 0 ) {
		$nenrei = $field[1];
		printf( "%s,%s,%d\n", $juusho, $seibetsu, $nenrei );
	}
}
exit;