my @patterns = (qr/balls/, qw/rings/);
my @file = <IN_FILE>;
my @to_print;
foreach my $line (@file) {
    push @to_print, $line unless grep { $line =~ /$_/ }  @patterns;
}
print OUT_FILE @to_print;