Select Code to Download

use strict;
use warnings;
...
sub process2 {
    print "Process2: " . $_->children_text () . "\n";
}

Process1: 
        tag 1 data
    
Process2:   
        tag 2 data