I think that there might be a problem with that. It might work, but I would suggest cleaning up one line a bit. Instead of:

if (s/(\w+shar\d\d\d\d\d\d\.\d\d\d\d)/$1/)
[download]

I would suggest:

if (m/(\w+shar\d\d\d\d\d\d\.\d\d\d\d)/)
[download]

What you are doing with s/// is substituting your regular expression for $1. The parenthesis around the expression delimit(?) $1. So it would appear that you are substituting the regular expression for itself. Then of course setting your variable $file to be equal to $1. Note the m/// in the second if statement. Also, your regular expresion could match on more than one file that fit that pattern if several files fit that scheme.

---

"Ex libris un peut de tout"