my $skip = qr/-\(lala\)-/;    # use precompiled regexps
if ($file =~ /$skip/) { ...