Take a look to rename and perlrun (-n -l -e) (update: and perlretut).
An adhoc one-liner can do the job.
Try this...

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

... then if everything seems OK (no files with the same "SxxEyy" for example)

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

But don't feel to confident with this : it is a good idea to write a real script if you want to automate this task without human-control. Not my fault if you lose all your pictures/movies/files.

Update:
Add this check.
Count file before renaming:

ls | wc -l
[download]

Number of file that should results:

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

This way you can't lose the files, only the filenames ;-)