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

##</code><code>##

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

##</code><code>##

(my $data = <$FH>) =~ s/^\s*#.*\n|^\n//gm;

##</code><code>##

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