Great. It works for me. A minor change I have made. Since $new_name is not declared , it is warning me. Hence I have replaced $new_name to $_ and works. Thanks a lot. One more help. I am new to perl. Can I know what it means of the code?

return unless / /;
[download]

Thanks again. Ashok