This regular expression will grap the entire tag, brackets and all.

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

This regex will leave out the brackets and print only the string inside them:

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

Use modifiers, or loops as you need too. -kel