can be this?

perl -e 'open FILE, "<".shift; @arq=<FILE>; $a=shift; foreach(@arq[-10
+..-1]){print if /$a/} while(1){while(<FILE>){print if /$a/}}' file re
+gex
[download]