my @bintext2 = grep /$input/i, @bintext;

##</code><code>##

my @bintext2 = grep { /$input/i and length()>20 } @bintext;