--- /dev/null
+#! /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 ,"$_";
+}