my $data; open my $FH, '<' , $config or die "Cannot open $config: $!\n"; local $/ = undef; s/^\s*#.*\n|^\n//gm for $data = <$FH>;