If you want to print the matches rather than the regular expressions, you have to tell Perl to do so:

print {$final_fh} /$pattern/, "\n";
[download]

This will probably still not do what you want, though. Read Regexp Quote Like Operators for details on what the match returns in various contexts and with various options (e.g. /g).