@file = split (/\\/,$file);