Select Code to Download

        #Update the text in the comment.
        my ($first_comment) = $doc->findnodes("/comment()[1]");
...
        $Appname_node->removeChildNodes();
        $Appname_node->appendText($0);

use strict;
...
1: xyz
2: -123--456-