my $doc = '<?xml version="1.0"?><root><a:b>one</a:b><a:b>two</a:b></root>';
my $last = [ $doc =~ /a:b>([^<]+)/g ]->[-1];
print $last, $/;