Sort:  

your welcome, and please re-share this perl with others. It will become a big one