Select Code to Download

    my ($name) = $file =~ /([^\\]+?)          # everything but backsla
+shes, non-greedy
                           (?:\.[^\\.]*)? $   # optional .ext, anchore
+d at the end
                          /x;