my ($data) = $c =~ /(">(T[0-9]+)<\/A>,|.|\n)*/;