use strict;
use warnings;
use XML::XPath;
use CGI::Pretty qw(:standard);

my $xpath   = XML::XPath->new(ioref => *DATA);
my $nodeset = $xpath->find('/profile/bids/itemcode');
my @b_item  = map $_->string_value, $nodeset->get_nodelist;

print header,
   start_html('itemcodes'),
   h1('Then'),
   (map { $_,br } @b_item),
   end_html,
;

__DATA__
<profile username="Tom" language="eng" lastlogin="">
 <bids>
   <itemcode>4985874875</itemcode>
   <itemcode>7685976785</itemcode>
   <itemcode>6758679837</itemcode>
   <itemcode>7849609576</itemcode>
   <itemcode>2857689576</itemcode>
 </bids>
 <itemwatch>
   <itemcode>6758767856</itemcode>
   <itemcode>3758678576</itemcode>
 </itemwatch>
</profile>