#!perl
use warnings;
use strict;
my $out = "coursera/hinton";
my @files = <*.mp4>;
print "@files\n";
for my $file (@files) {
    my ($first) = split / /, $file;
    print "$file\n";
    die unless $first =~ /^\d+$/;
    my $dir = "$out/ch$first";
    if (! -d $dir) {
	print "make dir $dir\n";
	mkdir $dir or die $!;
    }
    print "rename <<$file>> to $dir\n";
    rename $file, "$dir/$file" or die $!;
}