http://www.perlmonks.org?node_id=809417


in reply to How to run index on this one?

How about a lookahead assertion and the perl5.10 (*FAIL) pattern to find all matches :-)
perl -e '$_="YYSFTVMETDPVN[115]HMVGVISVEGRPGLFWFN[115]ISGGDK"; /N(?=\ +[115\])(?{print pos, "\n"})(*FAIL)/' 13 36
See perlre for more information.

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});