G'day Rolf,

++ All valid points.

This was for a $work project and there are certain constraints: one package per module; A::B::C is in .../A/B/C.pm; non-ASCII characters disallowed. I wrote the regex with those constraints in mind.