s/
	(??{$missingpages[$_]-1|$missingpages[$_]-2|$missingpages[$_]-3|$missingpages[$_]-4|$missingpages[$_]-5|$missingpages[$_]-6})
	.*?
	(.{0,30})
	(?<!\d)
	($missingpages[$_])
	(?>\D)
	(.{0,30})
	.*?
	(??{$missingpages[$_]+1|$missingpages[$_]+2|$missingpages[$_]+3|$missingpages[$_]+4|$missingpages[$_]+5|$missingpages[$_]+6})
	/$replace->()/egx for @source;