Рабочий perl-код с комметариями ниже. Описывать считаю бессмысленным, если ты перловик.

undefined