How about something like this?

open (FILE1, "<tabtext.txt") or die $!;
open (FILE2, ">ludo.txt") or die $!;
my $re = join "|", map {quotemeta} @params;
while (<FILE1>) {
    print FILE2 if /$re/o;
}
close(FILE1);
close(FILE2);
[download]

--

flounder