Select Code to Download

my @a = qw (a d c d s f ss eef e as d);

...
    print 'match';
    last GREP;
}

#...
   grep_line =>
...
            return;
        }
#...