Change the regex line to:

   next unless $line =~ /\s+<\w+\/?>(.*)<\/\w+>/;
[download]

If the regex fails then $1 is not altered (as you noticed).

Why did you comment out use strict; btw? Your code is fine with strictures enabled.