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 => $_"'
... 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,$_'
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
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'
This way you can't lose the files, only the filenames ;-)
|