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

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

	if ( $field[0] eq "住所" ) {
		$juusho = $field[1];
	}

	if ( $field[0] eq "性別" ) {
		$seibetsu = $field[1];
	}

	if ( $field[0] eq "年齢" ) {
		$nenrei = $field[1];
	}

	if ( $field[0] eq "ペット" ) {
		$pet = $field[1];
	}

	if ( $field[0] eq "種類" ) {
		$shurui = $field[1];
	}

	if ( $_ eq "" ) {
		if ( $pet eq "なし" ) {
			printf( "%s,%s.%s,%s\n", $juusho, $seibetsu,
					$nenrei, $pet );
		}
		else {
			printf( "%s,%s.%s,%s,%s\n", $juusho, $seibetsu,
					$nenrei, $pet, $shurui );
		}
	}
}
exit;