for my $file ( <*.mp4> ) {
    if ( $file =~ /-\s*(\d+)\s*-/ ) {
        rename $file, "[Books] $1.mp4" or die "Cannot rename '$file' because: $!";
        }
    }