$bname = $fname; $bname =~ s#.*\\##s;