@file = split /\\/,$file;  # split on a single backslash