Select Code to Download

my $replace = sub { 
    push @findmissing, "$bookabbrev\t$1\t$2\t$3\n"; 
...

s/$before.*?(.{0,25})(?<!\d)($missingpages[$_])(?>\D)(.{0,25}).*?$afte
+r/$replace->()/eg for @source;
}

GC      kes."--Wylie, b. 16, ch.   1        Did this haughty potenta
GC      rty."--Wylie, b. 16, ch.   1        This document clearly re

    s/
    (??{$missingpages[$_]-1|$missingpages[$_]-2|$missingpages[$_]-3|$m
+issingpages[$_]-4|$missingpages[$_]-5|$missingpages[$_]-6})
...
    .*?
    (??{$missingpages[$_]+1|$missingpages[$_]+2|$missingpages[$_]+3|$m
+issingpages[$_]+4|$missingpages[$_]+5|$missingpages[$_]+6})
    /$replace->()/egx for @source;