do "/root/rename-subs/nospecial";
do "/root/rename-subs/videos";
if (/^Film /) { next; }
unless (/^Serie /) { $_= "Serie " . $_; }
s/S([1-9])E([1-9][0-9])/S0$1E$2/;
s/S([1-9])E([1-9])/S0$1E0$2/;
s/ ([0-9]) ([0-9])/ S0$1E0$2/;
s/ S([0-9]) E([0-9])/ S0$1E0$2/;
s/_+/_/g;
s/ +/ /g;