I really hope that my Perl code can be understood by a novice, as that's the only way I'll be able to understand it next time I look at it.