perl -e 'open(ARQ1, "<arq1");open(ARQ2, "<arq2"); open(OUT, ">outputfile");$arq.=$_ while <ARQ1>; $arq=~s/\n/|/g; while(<ARQ2>){print OUT unless /^($arq)$/}'