As I recall, there is a similiar program in Learning Perl by Schwartz... There he explains the nuances of this type of perl program.