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

##</code><code>##

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

##</code><code>##

ls | wc -l

##</code><code>##

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