A perlscript to rename episodes from tv shows