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