my $ppc_pat 	= qr/<bidListing\sbidId=\"\d+\"/;
my $ppc_pat_2 	= qr/<\/bidListing/;

my (@ar) = $xml =~ /($ppc_pat).+?$ppc_pat_2/g;