I've decided to change approach a bit because sometimes it'll be easier to write something new then to fix an old one so could you to refer to a new node for more details:

http://www.perlmonks.org/?node_id=947916

Many thanks in advance.