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