No one happened to mention the fact that split() operates on the $_ variable. Just a helpful tidbit to pass on:

@parts = split m!/!, $_;
# is really the same as
@parts = split m!/!;
[download]

Just some idiomatic Perl.