Select Code to Download

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