if ( $dog =~ /[^|]*\|[^|]*\|[^|]*\|([A-Z ]*)\.\s([A-Z]{2})\s(\d{6,8})\.\s(\d{2}-\d{2}-\d{2})/ ) {
	my $name = $1;
	my $id = $2 . $3;
	my $dob = $4;