#!/usr/bin/perl

  use strict;
  use warnings;

  use XML::LibXML;

  foreach my $filename (@ARGV) {

  my $parser = XML::LibXML->new();
  my $doc    = $parser->parse_file($filename);
  


	
    foreach ($doc->findnodes('/edgarSubmission/relatedPersonsList/relatedPersonInfo/relatedPersonName')){ 
    
    print $_->data . " |" foreach ($doc->findnodes('/edgarSubmission/relatedPersonsList/relatedPersonInfo/relatedPersonName/firstName/text()'));
    print $_->data . " |" foreach ($doc->findnodes('/edgarSubmission/relatedPersonsList/relatedPersonInfo/relatedPersonName/lastName/text()'));
		
  
 
	
	print "\n";
	}
}