Just setting up the basics.

It's been a while since I've worked Perl so this is probably not "Modern Perl", but it's functional enough for now.
Recurse over the src files.

Use the File::Find library to get all the files below the supplied source base directory.
Check if the file extension matches a video file.

Split off everything after the last "." and see if it matches anything in our list of video file extensions.
Check if the video is a television program.

Look in the filename (extracted from the path) to see if the file name includes a pattern of sXXeYY. If it does, then grab the XX & YY and keep them for later.
Determine the program's name.

Looking at many scene releases, everything up to the sXXeYY pattern consistently seems to be the program's name.