while ($folder =~ /\\/)
   {
      $folder =~ s/\\/\//; 
   }