I really like this solution whereas it does not require any external perl modules. The recursive function was the key to this problem, and your solution was simple and elegant. Thank you!