#!/usr/bin/perl

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

my @result = lcss(
    'abcdefghixypqrstxyzuvw',
    'axyza');

print "$result[0]\n";