find_string {
    my ($file, @strings) = @_;
    open my $fh, '<', $file;
    my $re = join "|", map quotemeta, @strings;
    while (<$fh>) {
        return 1 if /$re/;
    }
    die "Unable to find string: $string";
}

##</code><code>##

find_string {
    my ($file, @strings) = @_;
    open my $fh, '<', $file;
    while (<$fh>) {
        for my $string (@strings) {
            return 1 if /\Q$string/;
        }
    }
    die "Unable to find string: $string";
}