perl -e 'open(ARQ1, "<arq1");open(ARQ2, "<arq2"); open(OUT, ">outputfi
+le");$arq.=$_ while <ARQ1>; $arq=~s/\n/|/g; while(<ARQ2>){print OUT u
+nless /^($arq)$/}'
[download]