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