Select Code to Download

$file =~ s%/[^/]+/\.\.$%%

# colapse /./ and /.$ 
1 while ($file =~ s%/\.(/|$)%$1%g);
...

# expand null to .
$file =~ s%^$%.%;