Without taking this code twisting too far, I think this is even nicer:

while (<DATA>) {
    s/\s*#.*//;
    push @enabled_lines, /\s*(.+)/;
}
[download]