Select Code to Download

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

#!usr/bin/perl -w
# nl.plx
...
print "@bintext\n";
my @bintext2 = grep {$_ =~ "$input"} @bintext;
print "@bintext2\n";