Нужна ваша помощь со скриптом на перле

for i in `cat file2`; do
  grep $i file1 >> file3.tmp
done

uniq file3.tmp file3

rm -f file3.tmp

Спасибо, но к сожелению не то.
нужно чтобы file3 был копией файла1 но в нем отсутствовали те строки
которые похожи на строки файла2.
Пример:
файл1:

aaaa
sss
xxxxx
gfgfgfgf
,,,,SPARTAK CHAMPION ;;;;;
uuukkk999jjjjjj

файл2:
ss
99
SPARTAK

В файле3 должно быть:
aaaa
xxxxx
gfgfgfgf

Как такое сотворить??

да, это я немного ступил.

#! /bin/sh

cp f1 f3

for s in `cat f2`; do 
  grep -v $s f3 > f4 
  mv f4 f3 
done 

perl -ne 'BEGIN{ for(split /(?<=\n)/, `cat file2.txt`){ $h{$_}++ } } print unless(exists $h{$_})' file1.txt

:)

и даже короче:

perl -ne 'BEGIN{++$h{$_} for `cat file2.txt`} $h{$_} || print' file1.txt

плохой, плохой язык perl... то ли дело читабельный Python :)))

Большое спасибо, попробую.