my @data = $c =~ /<A[^>]+>BS<\/A>(?:.*<A[^>]+>([RT][0-9]+)<\/A>.*)+XX/sg;
for(my $i = 0; $i<=$#data; $i++){
						print "$data[$i] \n";
}