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