It looks like needlessly terse code to me even though it probably works great. Relying on ($bname = $fname) to bind the lefthand value ($bname) with the RE is accurate, but it's difficult to read. The substitution regular expression isn't all that hard to read, but should have been documented, although then you would have:
s#.*\\##s; # comments here.
So perhaps a different delimiter would have been prudent. Why not: s{.*\\}[]s # comments here? It would be a little more legible, and could tell the reader what's going on. Of course there's always YAPE::Regex::Explain that can get you out of a bind when things get cryptic.
|