in reply to Quesion

Well,I think it works :)

In Section Seekers of Perl Wisdom