See perlre. Also, you likely want to use real regular expressions in your match syntax and not strings:

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

# or even shorter

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