Help for this page

Select Code to Download


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