ls -1 *.avi | perl -nle'$o=$_; s/\[crap\]/Season1/; $n=$_; rename($o,$n)if!-e$n'