#!/usr/bin/perl

use strict;
use warnings;
use String::LCSS_XS qw(lcss);

my $longest = lcss (
    "perl find perl module",
    "perl module");
print $longest, "\n";