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);