This code:

q[[...]]
[download]

likely does not do what you think it does. Print $find to see what it actually contains.

Also, note that shell quoting will get in the way of proper quoting your replacement strings. I recommend doing the actual replacement also within your main Perl process, using for example Tie::File for in-place substitution.