| 
				
			 | 
			
			
				@@ -86,7 +86,7 @@ __saturnin_urimagic__flt_exps() { 
			 | 
		
	
		
			
			| 
				86
			 | 
			
				86
			 | 
			
			
				     # Hack expressions like bug = 123 out of the text 
			 | 
		
	
		
			
			| 
				87
			 | 
			
				87
			 | 
			
			
				     # 
			 | 
		
	
		
			
			| 
				88
			 | 
			
				88
			 | 
			
			
				     sed -e 's/(\d)\</\n/;' \ 
			 | 
		
	
		
			
			| 
				89
			 | 
			
				
			 | 
			
			
				-      | perl -ne ' 
			 | 
		
	
		
			
			| 
				
			 | 
			
				89
			 | 
			
			
				+      | perl -CS -ne ' 
			 | 
		
	
		
			
			| 
				90
			 | 
			
				90
			 | 
			
			
				             next unless m/\b([a-zA-Z]\w*\s*=\s*\w+)\b/; 
			 | 
		
	
		
			
			| 
				91
			 | 
			
				91
			 | 
			
			
				             print "$1\n"; 
			 | 
		
	
		
			
			| 
				92
			 | 
			
				92
			 | 
			
			
				         ' \ 
			 | 
		
	
	
		
			
			| 
				
			 | 
			
			
				@@ -99,7 +99,7 @@ __saturnin_urimagic__flt_ids() { 
			 | 
		
	
		
			
			| 
				99
			 | 
			
				99
			 | 
			
			
				     # Hack doer-like id's (ID#123) out of the text 
			 | 
		
	
		
			
			| 
				100
			 | 
			
				100
			 | 
			
			
				     # 
			 | 
		
	
		
			
			| 
				101
			 | 
			
				101
			 | 
			
			
				     tr ' ' '\n' \ 
			 | 
		
	
		
			
			| 
				102
			 | 
			
				
			 | 
			
			
				-      | perl -ne ' 
			 | 
		
	
		
			
			| 
				
			 | 
			
				102
			 | 
			
			
				+      | perl -CS -ne ' 
			 | 
		
	
		
			
			| 
				103
			 | 
			
				103
			 | 
			
			
				             next unless m/\b([a-zA-Z]\w*#\w+)\b/; 
			 | 
		
	
		
			
			| 
				104
			 | 
			
				104
			 | 
			
			
				             print "$1\n"; 
			 | 
		
	
		
			
			| 
				105
			 | 
			
				105
			 | 
			
			
				         ' \ 
			 | 
		
	
	
		
			
			| 
				
			 | 
			
			
				@@ -127,8 +127,8 @@ __saturnin_urimagic__flt_uris() { 
			 | 
		
	
		
			
			| 
				127
			 | 
			
				127
			 | 
			
			
				     # Hack URIs out of the text. 
			 | 
		
	
		
			
			| 
				128
			 | 
			
				128
			 | 
			
			
				     # 
			 | 
		
	
		
			
			| 
				129
			 | 
			
				129
			 | 
			
			
				     tr ' ' '\n' \ 
			 | 
		
	
		
			
			| 
				130
			 | 
			
				
			 | 
			
			
				-      | perl -ne ' 
			 | 
		
	
		
			
			| 
				131
			 | 
			
				
			 | 
			
			
				-            next unless m|(\bhttps?://[[:alnum:]_:/.?#&+,%@=;~-]+)\b|; 
			 | 
		
	
		
			
			| 
				
			 | 
			
				130
			 | 
			
			
				+      | perl -CS -ne ' 
			 | 
		
	
		
			
			| 
				
			 | 
			
				131
			 | 
			
			
				+            next unless m|(\bhttps?://[[:alnum:]_:/.?#&+,%@=;~-]+)\b|u; 
			 | 
		
	
		
			
			| 
				132
			 | 
			
				132
			 | 
			
			
				             print "$1\n"; 
			 | 
		
	
		
			
			| 
				133
			 | 
			
				133
			 | 
			
			
				         ' 
			 | 
		
	
		
			
			| 
				134
			 | 
			
				134
			 | 
			
			
				 } 
			 |