Select Code to Download

my %config;
m[^([^#][^=]+)=(.*)$] and $config{ $1 } = $2 while <DATA>;

my %config = map { /^([^#][^=]+)=(.*)$/ } <DATA>;