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