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