Hello,
I think here you are finding all the files in the current directory and reading the content of the file. and you are getting the dstination file name with some junk spaces, that you want to remove using the perl statement. I can do this easily. If i am wrong please correct me and ping me to have a detailed discusssion about the requirement.