### begin_: init perl
    use strict;
    use warnings;
    
    ### p__: standard perl libraries
    use YAML;
    use Data::Dumper;

### begin_: get sample data
    my  $sRaw   = join '',<DATA>;
    
### begin_: convert to YAML
    for ($sRaw){
    
        ### p__: scrub the top part
        s/libname=/\n-  domain: begin\n   libname: /gms;
        s/pathname=([^\s]+)/\n   pathname: "$1"/gms;
        s/owner=([^\s]+)/\n   owner: "$1"/gms;
        s/libaclinherit=([^\s]+)/\n   libaclinherit: "$1"/gms;
        s/dynlock=([^\s]+)/\n   dynlock: "$1"/gms;
        s/roptions=\x22//gms;

        ### p__: scrub the roption stuff
        for my $sOpt qw(datapath indexpath workpath metapath){
            s/\s+$sOpt=\x28([^\x29]+)\x29/\n   $sOpt: [$1]/gms;
        }

        ### p__: scrub the oddball stuff
        s/\n^\x20{4,}/,/gms;
        s/,\x2e{3}//gms;
        s/\x22;//gms;
        s/\x5d[\x2c\x20]+/\x5d/gms;

        $_ .= "\n";
    };

### begin_: display result
    ### p__: show raw converted to yaml
    print $sRaw;
    print "\n---\n";

    ### p__: show yaml converted to perl
    my  $oData   = YAML::Load($sRaw);
    print Data::Dumper->Dump([$oData], [qw(oDomains)]);


### begin_: end_perl
    1;
    __END__
libname=foo pathname=/path/to/metadata/foo owner=someuser libaclinherit=no dynlock=no
   roptions="
       datapath=('/data/path1'
                 '/data/path2'
                 '/data/path3'
                 ...)
       indexpath=('/indx/path1'
                  '/indx/path2'
                  '/indx/path3'
                  ...)
       workpath=('/work/path1'
                 '/work/path2'
                 '/work/path3'
                 ...)
       metapath=('/meta/path1'
                 '/meta/path2'
                 '/meta/path3'
                 ...)";
                 
                 
libname=foo pathname=/path/to/metadata/foo owner=someuser libaclinherit=no dynlock=no
   roptions="
       datapath=('/data/path1'
                 '/data/path2'
                 '/data/path3'
                 ...)
       indexpath=('/indx/path1'
                  '/indx/path2'
                  '/indx/path3'
                  ...)
       workpath=('/work/path1'
                 '/work/path2'
                 '/work/path3'
                 ...)
       metapath=('/meta/path1'
                 '/meta/path2'
                 '/meta/path3'
                 ...)";