if (@strings){
  $re = join "|", map {quotemeta} @strings;
} else {
  $re = undef;
}

foreach my $line (@file1only) {
    print unless defined($re) && /$re/;
}