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