my @bintext2 = grep /$input/i && length > 20, @bintext;