Select Code to Download

#!/usr/bin/env perl

...
my @kids; 
push @kids, $_->childNodes for @records;
print $_->textContent for @kids;

        aaa,aaa
        bbb,bbb
...
        fff,fff
        ggg,ggg
        hhh,hhh