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

##</code><code>##

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