Fix files created with Windows path names

fixdirs.pl

#!/usr/bin/perl
#Instructions: On a Unix-like system, run: find [basedir] -type f | perl fixdirs.pl
#This script is in the public domain (http://creativecommons.org/publicdomain/zero/1.0/)
use strict;
use File::Path 'make_path';
use File::Copy 'copy';
my ($dn, $fn);
while(<STDIN>) {
	chomp;
	($dn, $fn) = m/(.*)\\([^\\]*)/;
	$dn =~ s/\\/\//g;
	make_path $dn;
	copy($_, $dn . '/' . $fn);
}