$data =~ m/<([^>]+)>/;
print $1, "\n";      # print the tag