my @data = $c =~ /">BS<\/A>\s*\-?[0-9]+.*">(R[0-9]+)<\/A>(">(T[0-9]+)<\/A>,|.|\n)*">(T[0-9]+)\<\/A>./g;
print "@data\n";