my @resultset =  $c =~ /<A[^>]+>BS<\/A>(.*)\n/g;
					my $result = join '',@resultset;
					my @data = $result =~ /<A[^>]+>([RT][0-9]+)<\/A>/g;