Select Code to Download

 @foo = grep {!/^#/} @bar;    # weed out comments

my @regs =(
           qr/split/ ,
...
}@bar;

print @foo;