I must be missing something, because I don't see what the problem is. The substitution is working correctly, as you will see if you add a second print "$file2\n"; at the end. What is it that you are trying to achieve?

--ZZamboni