The String::LCSS_XS module may be a good starting place. Using “super search” for “longest common substring” should also return maybe useful prior threads.