Just an example to be adapted to your specific needs:

my $word = "banjo";
my $found_it = pseudo_bash_grep ($word, "words.txt");
print  "Found $word in the words.txt file \n" if $found_it;

sub pseudo_bash_grep { 
    my ($keyword, $file) = @_;
    open my $FILE_IN, "<", $file or die "Failed to open $file $!";
    while (<$FILE_IN>) {
        return 1 if /$keyword/;
    }
    return 0;
}
[download]

$ perl  search.pl
Found banjo in the words.txt file
[download]

Hi Laurent_R,

I second this answer. Just a reminder to Mind the meta!, otherwise the function is the rough equivalent of grep -P, which may or may not be what the OP wants.

Regards,
-- Hauke D

Hi,

I'm not quite sure why you refer to this post (Mind the meta!).

The code I suggested in my post was, as I pointed out, "(j)ust an example to be adapted to (the OP's) specific needs". Depending on the situation, the regex might need an ignore case modifier, a quotemeta of the string used for the regex, etc. And the code might need some other changes, too.

One small change:

return 1 if /\Q$keyword/;

See perldoc perlre Quoting Metacharacters

Yeah, right, as I said already yesterday (Dec 20, 2016 at 14:49 UTC):

Depending on the situation, the regex might need an ignore case modifier, a quotemeta of the string used for the regex, etc.

From perlop#Quote-Like-Operators

> Like system, backticks put the child process exit code in $? . If you'd like to manually inspect failure, you can check all possible failure modes by inspecting $? like this:

my $rc = system("grep foobar debug.log");
print "rc = '$rc'\n";

2016/10/31 13:47:21 -5168 [19] Tools.pm 22 Tools.run_test - running te
+st baz with parameters foobar
rc = '0'
[download]

my $rc = system("grep blabla debug.log");
print "rc = '$rc'\n";

rc = '256'
[download]

#!/usr/bin/perl --
use strict;
use warnings;
use Capture::Tiny qw/ capture /;
...
my @cmd = ( '/usr/bin/echo', 'whiskey', 'foxtrot' );
my( $stdout, $stderr, $exit ) = capture {
    system { $cmd[0] } @cmd;
};;
...
[download]