require String::LCSS; my $needle = 'i pushed the lazy dog into a creek, the quick brown fox told me to'; my $haystack = 'the quick brown fox jumps over the lazy dog'; my $longest = String::LCSS::lcss ( $needle, $haystack ); print $longest, "\n";