while ($xml =~ m/<Product>(.*?)<\/Product>/g) {
    push @products, $1;
}