Select Code to Download

sub find_string {
    my ($file, @strings) = @_;
...
}

find_string('filename', "testing","link","rd");

    open my $fh, '<', $file or die "File open fail ($file): $!";