Better code to catch false positives

gedcom

@@ -2476,7 +2476,7 @@ sub print_person
 			complain({ person => $person, warning => "Removing leading 0 from baptism date '$dateofbaptism'" });
 			$dateofbaptism =~ s/^0//;
 		}
-		if($dateofbaptism && $dateofbirth && ($dateofbirth !~ /^abt /) && ($dateofbaptism !~ /^bet \d{3,4} and \d{3,4}$/) && (datecmp($dateofbaptism, $dateofbirth) <= 0)) {
+		if($dateofbaptism && $dateofbirth && ($dateofbirth !~ /^abt\s/i) && ($dateofbaptism !~ /^bet \d{3,4} and \d{3,4}$/) && (datecmp($dateofbaptism, $dateofbirth) <= 0)) {
 			complain({ person => $person, warning => "Date of baptism ($dateofbaptism) before date of birth ($dateofbirth)" });
 		}
 		my $placeofbaptism = get_value({ person => $person, value => 'baptism place' });