Select Code to Download

my @bintext2 = grep /$input/i, @bintext;

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