sub get_domopts {                                      
  my $foo_opts=shift;                                  
        my @foo_opts = split ( //, $foo_opts );        
    my $cvtype   = $dom_opts[0];                       
    my $cvnumber = join ( "", @foo_opts[ 1 .. 10 ] );  
    my $dtype    = join ( "", @foo_opts[ 11, 12 ] );   
    my $cdir    = join ( "", @foo_opts[ 13 .. 15 ] );  
    my $dp      = join ( "", $foo_opts[16] );          
    my $dpform  = join ( "", @foo_opts[ 17, 18 ] );    
    my $dpnc    = join ( "", $foo_opts[19] );          
    my $dprntr  = join ( "", @foo_opts[ 20 .. 23 ] );  
    my $dpfill  = join ( "", @foo_opts[ 24 .. 73 ] );  
    my $de      = join ( "", $foo_opts[74] );          
    my $deform  = join ( "", @foo_opts[ 75, 76 ] );    
    my $deadd   = join ( "", @foo_opts[ 77 .. 176 ] ); 
    my $defill  = join ( "", @foo_opts[ 177 .. 226 ] );
 }