A small perl script for renaming subtitles to match the accompanied video file names.