Perl sample code "sampple.pl"

#! /usr/bin/perl

use LWP::Simple;
use XML::Simple;

my $id = "BC019236";
my $url = "http://h-invitational.jp/hinv/hws/acc2hit.php?acc=" . $id ;
my $content = get($url);

my $parser = XML::Simple->new ;
my $data = $parser->XMLin($content) ;

my @list = $data->{'H-INVITATIONAL-ID'} ;
my $list_cnt = @{$data->{'H-INVITATIONAL-ID'}} ;
print "CNT:" . $list_cnt . "\n" ;
for($i=0 ; $i<$list_cnt ; $i++){
    print "ID:" . $data->{'H-INVITATIONAL-ID'}[$i] . "\n" ;
}

exit(0);

Result

> perl sample.pl
CNT:2
ID:HIT000038568_01
ID:HIT000038568_02