my @bintext2 = grep { /$input/i } @bintext;