some Perl code which was written by a, shall we say, Perl non-expert.

Possibly not an expert, but probably not a total newbie either. ;-)