Can anyone decode this Perl code, please?

[Carl Banks]

Jane Austine wrote:
> I am reading Object-Oriented Reengineering Patterns. I really enjoy
> this book. On p.177, however, there is a perl code, which is all Greek
> to me.


Trust me, Greek's easier.  :-)


<crosspost removed>
-- 
CARL BANKS