#!/usr/bin/perl

use 5.014;
use warnings;
use Text::CSV_XS;

my %hdr;
my @dta;
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\r\n" });

{   local $/ = "";
    while (<DATA>) {
        my %data = m/^\s*(\w[^ :]+)[: ]+(.*\S)\s*$/gm;
        $hdr{$_}++ for keys %data;
        push @dta, \%data;
        }
    my @hdr = keys %hdr;
    $csv->print (*STDOUT, \@hdr);
    $csv->print (*STDOUT, [ @{$_}{@hdr} ]) for @dta;
    }

__END__
user: myus44 [up] 
------------
 admin-state enabled 
 summary "Johnny Cash" 
 access-level group-defined 
 group mi-group  [up]

user: jar1543 [up] 
------------
 admin-state enabled 
 summary "Lara Croft" 
 access-level group-defined 
 group jar-head  [up]

user: myprivilegeduser [up]
-----------
admin-state enabled
access-level privileged