#! /usr/bin/perl

##
# This script changes the name of a video downloaded from Ninjavideo to a readable format
# and changes the extension to avi.
# It will change all files with a divx extension.
##

while(<*.divx>){
    $old=$_;

	# remove the Series name at beginning
	s/.*(\dx\d{2}.*)/\1/;

	# remove (HD xxxp/i) on HD Series
	s/\+%28HD\+\d+[pi]%29//;

    # remove the + if at beginning of line else replace with space
    s/^\+//;
    s/\+{1,2}/ /g;

    # Change URL encodings
    s/%26/&/gi;
	s/%2C/,/gi;
	s/%3F/?/gi;
	s/%3A/ -/gi;
	s/%27/\'/gi;
	s/%28/\(/gi;
	s/%29/\)/gi;
	s/%3D/=/gi;
	s/%21/!/gi;

	# remove any duplicate spaces
	s/ {2,}/ /;

	# change to avi
	s/divx$/avi/;

    rename $old ,"$_";
}