The problem you're looking at can be found in most CS textbooks,it's called Longest common substring and an implementation in Perl can be found here.