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