in reply to Common Substrings

Update: I basically duplicated blazar's code. Deleted to save your time.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom