$file =~ s/$dir\///g;
  $dir =~ s/\//\\/g;