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;
}