$file =~ tr|/|\\|;