for my $t in //text() { perl { chomp $t; print "$t," } }