#! /usr/bin/perl
use strict;
use warnings;

my $xml = <<EOF;
<foo>
    <bar>1</bar>
    <fb>xxx</fb>
    <bar>2</bar>
    <fb>xxx</fb>
    <bar>3</bar>
</foo>
EOF


my @matches = $xml =~ m{<bar>(.*?)</bar>}mg;

print "@matches\n";