Tagging through John 3

Check_ULB.pl

@@ -115,9 +115,9 @@ say "\nDone.";
 # =====
 __DATA__
 #41-MAT	Matthew
-42-MRK	Mark
+#42-MRK	Mark
 #43-LUK	Luke
-#44-JHN	John
+44-JHN	John
 #45-ACT	Acts
 #46-ROM	Romans
 #47-1CO	1 Corinthians

Construct_auto-tagged_ULB_XML_files_from_unified_ULB_XML_and_tWs_and_OGNT.pl

@@ -28,7 +28,7 @@ my (%ULBtextThisVerse, %ULBpreTextThisVerse, %SNsThisVerse, %entriesThisSN, %lon
 
 my @OGNTfilesToRun = ();
 #my $filePattern = '\.xml' ;
-my $filePattern = '42-MRK\.xml' ;
+my $filePattern = '44-JHN\.xml' ;
 find( sub { push @OGNTfilesToRun, $File::Find::name  if ( m/^(.*)$filePattern$/ ) }, $topDirOGNT) ;
 
 say LOG "\@OGNTfilesToRun:\n@OGNTfilesToRun\n";
@@ -303,7 +303,7 @@ sub MatchAndPlace {
 		}
 	}
 	unless ($found) {
-		$line =~ s/></>?</;
+		$line =~ s/></>√</;
 		$linesNotMatched .= "$line\n"
 	}
 	return ($matchedLines, $workText, $linesNotMatched)