Select Code to Download

for my $scene ( $doc->findnodes('/PLAY/SCENE') ) {
     ITEM: for my $item ( $scene->findnodes('SPEECH') ) {
...
          push @{$act{$scene}}, [ map { $_->to_literal } $item->findno
+des('LINE') ];
     }
}

for my $scene ( keys %act ) {
     print "SCENE $scene:\n";
     print "$searchterm:\n", join "\n", @$_ for @{$act{$scene}};
}