however, this will do it :)

print $uri->path_segments( grep { $_ } $uri->path_segments, $file );
[download]

uses grep to filter out the empty strings returned by path_segments.

updated: fixed typo