Yes, you are right. I was not in a position to test when I posted and I missed parts of it. I was thinking about something like this (assuming the string is in $_):

s/<[^>]+>(\w+).*/$1/;
[download]

which does work, but there are actually some easier ways, such as:

print $1 if />(\w+)</;
[download]