That is substituting everything up to the last '/' in $fname with nothing, which is essentially the same as

substr($fname, 0, rindex($fname, '/') + 1) = '';
[download]

For more information on substituting in perl see the s/// manpage and for info on regular expressions in perl see the perlre manpage.
HTH

_________
broquaint