Select Code to Download

ls | perl -nle '$a=$_;s/.*?(S\d\dE\d\d).*?\.(avi|srt)/LikeABoss${1}Yea
+h.$2/;print  "$a => $_"'

ls | perl -nle '$a=$_;s/.*?(S\d\dE\d\d).*?\.(avi|srt)/LikeABoss${1}Yea
+h.$2/;rename $a,$_'

ls | wc -l

ls | perl -nle '$a=$_;s/.*?(S\d\dE\d\d).*?\.(avi|srt)/LikeABoss${1}Yea
+h.$2/;$h{$_}++}{print scalar keys%h'