Select Code to Download

#! /usr/bin/perl
use strict;
...
    $node->appendText($new_text);
}
print $dom;

open file.xml ;
for (/header/id/b|/header/id/c) set text() "YOUR TEXT HERE" ;
save :b ;