...
    while ($content=~ m@...@g ) {
        ...
        parseMainNodes($desc, $rs);
...

sub parseMainNodes {
...
    while ($content2=~ m@...@g ) {
...