Select Code to Download

#!/usr/bin/perl

...
-----------
admin-state enabled
access-level privileged

group,summary,user,access-level,admin-state
"mi-group  [up]","""Johnny Cash""","myus44 [up]",group-defined,enabled
"jar-head  [up]","""Lara Croft""","jar1543 [up]",group-defined,enabled
,,"myprivilegeduser [up]",privileged,enabled

    while (<DATA>) {
        my %data = m/^\s*(\w[^ :]+)[: ]+(.*\S)\s*$/gm;
...
        s/^"(.*)"$/$1/ for values %data;
        push @dta, \%data;
        }

group,summary,user,access-level,admin-state
"mi-group  [up]","Johnny Cash","myus44 [up]",group-defined,enabled
"jar-head  [up]","Lara Croft","jar1543 [up]",group-defined,enabled
,,"myprivilegeduser [up]",privileged,enabled

    delete $hdr{user};
    my @hdr = ("user", keys %hdr);

user,group,summary,access-level,admin-state
"myus44 [up]","mi-group  [up]","Johnny Cash",group-defined,enabled
"jar1543 [up]","jar-head  [up]","Lara Croft",group-defined,enabled
"myprivilegeduser [up]",,,privileged,enabled