Cross-posted on the Perl Guru forums: http://perlguru.com/gforum.cgi?post=83737;sb=post_latest_reply;so=ASC;forum_view=forum_view_collapsed;;page=unread#unread

There is nothing wrong with cross-posting, but it is considered polite to inform the reader and provide links, in order to avoid duplication of efforts on various locations of the internet.

Typically, here, I have provided a solution on Perl Guru while some other solutions were provided some here.

Update: fixed the link.