use warnings;
use strict;

my $text = <<'END';
<y><ReportHost>one</ReportHost>
<x>test</x></y>
<ReportHost>
two
</ReportHost>
	<ReportHost><z>thr</z>ee</ReportHost>
END

# m//g in scalar context
while ($text=~ m{<ReportHost[^>]*>((?:(?!</ReportHost>).)*)</ReportHost>}sg) {
	print "a: \"$1\"\n";
}

# m//g in list context
my @m = $text=~ m{<ReportHost[^>]*>((?:(?!</ReportHost>).)*)</ReportHost>}sg;
print "b: \"$_\"\n" for @m;

__END__
a: "one"
a: "
two
"
a: "<z>thr</z>ee"
b: "one"
b: "
two
"
b: "<z>thr</z>ee"