Select Code to Download

LINE:
while ( my $line = <config> ) {
...
       if $line =~ m{\a\s*\#}xms;
   # process line
}