Select Code to Download

first level section no: 1.1 (two digits)
second level section no: 1.1.1 (3 digits)
third level section no: 1.1.1.1 (4 digits)
fourth level section no: 1.1.1.1.(i) (5 digits)
fifth level section no: 1.1.1.1.(i).(a) (6 digits)

$q ='<sec id="00005"><no>1.1</no>
sfasfasdfadsfsdaf
...
<sec id="00005"><no>1.2</no>
sfasfasdfadsfsdaf
........';

my $nstr = $str;
$strnew =~ s/<(hsp|top\-border|bottom\-border|link locator|cp type)([^
+>]*)>/<$1$2\/>/gsi;
...
    #$b->sprint;
    return $b;
}