#!/usr/bin/perl
    use strict;
    use warnings;
    use File::Slurp;

    my $file2 = shift
        or die "Usage: $0 file2 < another-file";
    my $nets = join "|", map {chomp;$_} read_file($file2);

    /$nets/
        or print
      while <STDIN>;