my $data = do{
    open my $file, '<', $filename or die $!;
    local $/ = undef;
    local $_ = <$file>;
    s/\n+/ /g;
    $_;
};