@file = split ("\\\\",$file);  # split on a single backslash