my @bintext2 = grep {$_ =~ "$input"} @bintext;

##</code><code>##

#!usr/bin/perl -w
# nl.plx
use strict;

open FILE,"<$ARGV[0]";
my @foo = <FILE>;
my $lineno = 1;

print "Enter in search keyword: ";
my $input = <STDIN>;
chomp($input);

my @bintext = qx(strings.exe -n 4 Page.txt);
print "@bintext\n";
my @bintext2 = grep {$_ =~ "$input"} @bintext;
print "@bintext2\n";