#filter_snapshot.pl
use strict;
use warnings;
my @exclude_modules = map {chomp;quotemeta($_)} <DATA>;

FILTER:
while (<>)
{
   for my $excluded (@exclude_modules)
   {
        next FILTER if /$excluded/
   }
   print ;
}

__DATA__
module1
Module2
Module3::SubModule
Module4